doc.

2014-04-28 21:51:39 +09:00
parent 913fb72911
commit a1aa44bdbb
2 changed files with 6 additions and 1 deletions
--- a/Language/Haskell/GhcMod/Logger.hs
+++ b/Language/Haskell/GhcMod/Logger.hs
@@ -44,6 +44,9 @@ appendLogRef df (LogRef ref) _ sev src style msg = do

 ----------------------------------------------------------------

+-- | Set the session flag (e.g. "-Wall" or "-w:") then
+--   executes a body. Log messages are returned as 'String'.
+--   Right is success and Left is failure.
 withLogger :: Options -> (DynFlags -> DynFlags) -> Ghc () -> Ghc (Either String String)
 withLogger opt setDF body = ghandle (handleErrMsg opt) $ do
    logref <- liftIO $ newLogRef