export minimum Monad stuff from GhcMod.

2014-07-18 15:31:42 +09:00
parent e1d9c3b881
commit 30ddd655cd
4 changed files with 25 additions and 12 deletions
--- a/Language/Haskell/GhcMod/Logger.hs
+++ b/Language/Haskell/GhcMod/Logger.hs
@@ -79,7 +79,7 @@ withLogger setDF body = ghandle sourceError $ do
 sourceError :: IOish m => SourceError -> GhcModT m (Either String String)
 sourceError err = do
    dflags <- G.getSessionDynFlags
-    style <- toGhcMod getStyle
+    style <- toGhcModT getStyle
    ret <- convert' (errBagToStrList dflags style . srcErrorMessages $ err)
    return $ Left ret