Fix impredicativity related issue
See: https://ghc.haskell.org/trac/ghc/ticket/10443
This commit is contained in:
parent
21087650d9
commit
bfa0b965ee
@ -342,8 +342,9 @@ instance (MonadBaseControl IO m) => MonadBaseControl IO (GhcModT m) where
|
|||||||
(ErrorT GhcModError
|
(ErrorT GhcModError
|
||||||
(JournalT GhcModLog
|
(JournalT GhcModLog
|
||||||
(ReaderT GhcModEnv m) ) ) ) a
|
(ReaderT GhcModEnv m) ) ) ) a
|
||||||
liftBaseWith f = GhcModT . liftBaseWith $ \runInBase ->
|
|
||||||
f $ runInBase . unGhcModT
|
liftBaseWith f = GhcModT (liftBaseWith $ \runInBase ->
|
||||||
|
f $ runInBase . unGhcModT)
|
||||||
|
|
||||||
restoreM = GhcModT . restoreM
|
restoreM = GhcModT . restoreM
|
||||||
{-# INLINE liftBaseWith #-}
|
{-# INLINE liftBaseWith #-}
|
||||||
|
Loading…
Reference in New Issue
Block a user