hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix impredicativity related issue

Browse Source 
See: https://ghc.haskell.org/trac/ghc/ticket/10443
This commit is contained in:
Daniel Gröber 2015-06-10 11:00:56 +02:00
parent 21087650d9
commit bfa0b965ee
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Language/Haskell/GhcMod/Monad/Types.hs
View File

@ -342,8 +342,9 @@ instance (MonadBaseControl IO m) => MonadBaseControl IO (GhcModT m) where
(ErrorT GhcModError
(JournalT GhcModLog
(ReaderT GhcModEnv m) ) ) ) a
liftBaseWith f = GhcModT . liftBaseWith $ \runInBase ->
f $ runInBase . unGhcModT
liftBaseWith f = GhcModT (liftBaseWith $ \runInBase ->
f $ runInBase . unGhcModT)
restoreM = GhcModT . restoreM
{-# INLINE liftBaseWith #-}