Fix sig command

Fixes #704
2016-01-26 23:48:33 +03:00 · 2016-01-26 23:48:33 +03:00 · 9b88b71f4d
parent d77e262915
commit 9b88b71f4d
1 changed files with 3 additions and 1 deletions
--- a/Language/Haskell/GhcMod/Target.hs
+++ b/Language/Haskell/GhcMod/Target.hs
@ -451,7 +451,9 @@ loadTargets opts targetStrs = do
    case target' of
      HscNothing -> do
        void $ load LoadAllTargets
-        mapM_ (parseModule >=> typecheckModule >=> desugarModule) mg
+        forM_ mg $
+          handleSourceError (gmLog GmWarning "loadTargets" . text . show)
+          . void . (parseModule >=> typecheckModule >=> desugarModule)
      HscInterpreted -> do
        void $ load LoadAllTargets
      _ -> error ("loadTargets: unsupported hscTarget")