Check session validity via equality on DynFlags

2016-02-14 08:41:11 +01:00
parent b4de82632e
commit 2e4c2b5228
6 changed files with 139 additions and 16 deletions
--- a/Language/Haskell/GhcMod/LightGhc.hs
+++ b/Language/Haskell/GhcMod/LightGhc.hs
@@ -42,3 +42,7 @@ runLightGhc :: HscEnv -> LightGhc a -> IO a
 runLightGhc env action = do
  renv <- newIORef env
  flip runReaderT renv $ unLightGhc action
+
+runLightGhc' :: IORef HscEnv -> LightGhc a -> IO a
+runLightGhc' renv action = do
+  flip runReaderT renv $ unLightGhc action