HasDynFlags is provided after 7.6.

This commit is contained in:
Kazu Yamamoto 2014-05-08 17:01:01 +09:00
parent cc3e728f03
commit b7d92417bc

View File

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