Merge pull request #736 from atom-haskell/fix-sig

Fix sig command
2016-03-02 01:38:10 +03:00 · 2016-03-02 01:38:10 +03:00 · e9d4a281cc
commit e9d4a281cc
parent 28356c1367 8fa928d9dd
1 changed files with 3 additions and 1 deletions
--- a/Language/Haskell/GhcMod/Target.hs
+++ b/Language/Haskell/GhcMod/Target.hs
@ -463,7 +463,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")