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

HasDynFlags is provided after 7.6.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-05-08 17:01:01 +09:00
parent cc3e728f03
commit b7d92417bc
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Language/Haskell/GhcMod/Monad.hs
View File

@ -109,8 +109,10 @@ instance GhcMonad GhcMod where
getSession = liftIO . readIORef . gmGhcSession =<< ask getSession = liftIO . readIORef . gmGhcSession =<< ask
setSession a = liftIO . flip writeIORef a . gmGhcSession =<< ask setSession a = liftIO . flip writeIORef a . gmGhcSession =<< ask
#if __GLASGOW_HASKELL__ >= 706
instance HasDynFlags GhcMod where instance HasDynFlags GhcMod where
getDynFlags = getSessionDynFlags getDynFlags = getSessionDynFlags
#endif
instance ExceptionMonad GhcMod where instance ExceptionMonad GhcMod where
gcatch act handler = control $ \run -> gcatch act handler = control $ \run ->