Fix sig command

Fixes #704
This commit is contained in:
Nikolay Yakimov 2016-01-26 23:48:33 +03:00
parent d77e262915
commit 9b88b71f4d

View File

@ -451,7 +451,9 @@ loadTargets opts targetStrs = do
case target' of case target' of
HscNothing -> do HscNothing -> do
void $ load LoadAllTargets void $ load LoadAllTargets
mapM_ (parseModule >=> typecheckModule >=> desugarModule) mg forM_ mg $
handleSourceError (gmLog GmWarning "loadTargets" . text . show)
. void . (parseModule >=> typecheckModule >=> desugarModule)
HscInterpreted -> do HscInterpreted -> do
void $ load LoadAllTargets void $ load LoadAllTargets
_ -> error ("loadTargets: unsupported hscTarget") _ -> error ("loadTargets: unsupported hscTarget")