hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix #507

Browse Source
This commit is contained in:
Daniel Gröber 2015-08-05 06:15:44 +02:00
parent 1a53582a21
commit 6e28e07ca9
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Language/Haskell/GhcMod/Target.hs
View File

@ -43,7 +43,8 @@ import Language.Haskell.GhcMod.Utils
import Data.Maybe import Data.Maybe
import Data.Monoid as Monoid import Data.Monoid as Monoid
import Data.Either import Data.Either
import Data.Foldable as Foldable (foldrM, concat) import Data.Foldable as Foldable (foldrM)
import qualified Data.Foldable as Foldable
import Data.Traversable hiding (mapM, forM) import Data.Traversable hiding (mapM, forM)
import Data.IORef import Data.IORef
import Data.List import Data.List
@ -435,6 +436,7 @@ loadTargets filesOrModules = do
where where
loadTargets' Simple = do loadTargets' Simple = do
void $ load LoadAllTargets void $ load LoadAllTargets
mapM_ (parseModule >=> typecheckModule >=> desugarModule) =<< getModuleGraph
loadTargets' Intelligent = do loadTargets' Intelligent = do
df <- getSessionDynFlags df <- getSessionDynFlags

2
test/CheckSpec.hs
View File

@ -56,4 +56,4 @@ spec = do
it "emits warnings generated in GHC's desugar stage" $ do it "emits warnings generated in GHC's desugar stage" $ do
withDirectory_ "test/data/check-missing-warnings" $ do withDirectory_ "test/data/check-missing-warnings" $ do
res <- runD $ checkSyntax ["DesugarWarnings.hs"] res <- runD $ checkSyntax ["DesugarWarnings.hs"]
res `shouldBe` "test/data/check-missing-warnings/DesugarWarnings.hs:5:9:Warning: Pattern match(es) are non-exhaustiveIn a case alternative: Patterns not matched: _ : _" res `shouldBe` "DesugarWarnings.hs:4:9:Warning: Pattern match(es) are non-exhaustive\NULIn a case alternative: Patterns not matched: _ : _\n"