This commit is contained in:
Daniel Gröber 2016-12-15 15:22:51 +01:00
commit 471e47d512

View File

@ -104,7 +104,7 @@ import TcRnTypes
#endif #endif
#endif #endif
#if MIN_VERSION_GLASGOW_HASKELL(8,0,2,0) #if MIN_VERSION_GLASGOW_HASKELL(8,0,1,20161117)
import GHC hiding (ClsInst, withCleanupSession) import GHC hiding (ClsInst, withCleanupSession)
import qualified GHC (withCleanupSession) import qualified GHC (withCleanupSession)
#elif __GLASGOW_HASKELL__ >= 706 #elif __GLASGOW_HASKELL__ >= 706
@ -685,7 +685,7 @@ everythingStagedWithContext stage s0 f z q x
withCleanupSession :: GhcMonad m => m a -> m a withCleanupSession :: GhcMonad m => m a -> m a
#if __GLASGOW_HASKELL__ >= 800 #if __GLASGOW_HASKELL__ >= 800
#if MIN_VERSION_GLASGOW_HASKELL(8,0,2,0) #if MIN_VERSION_GLASGOW_HASKELL(8,0,1,20161117)
withCleanupSession = GHC.withCleanupSession withCleanupSession = GHC.withCleanupSession
#else #else
withCleanupSession ghc = ghc `gfinally` cleanup withCleanupSession ghc = ghc `gfinally` cleanup