From 6e28e07ca96ddb544a164319bd8a1da021cbd12c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Gr=C3=B6ber?= <dxld@darkboxed.org>
Date: Wed, 5 Aug 2015 06:15:44 +0200
Subject: [PATCH] Fix #507

---
 Language/Haskell/GhcMod/Target.hs | 4 +++-
 test/CheckSpec.hs                 | 2 +-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/Language/Haskell/GhcMod/Target.hs b/Language/Haskell/GhcMod/Target.hs
index a5659f0..7b1fc6c 100644
--- a/Language/Haskell/GhcMod/Target.hs
+++ b/Language/Haskell/GhcMod/Target.hs
@@ -43,7 +43,8 @@ import Language.Haskell.GhcMod.Utils
 import Data.Maybe
 import Data.Monoid as Monoid
 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.IORef
 import Data.List
@@ -435,6 +436,7 @@ loadTargets filesOrModules = do
   where
     loadTargets' Simple = do
         void $ load LoadAllTargets
+        mapM_ (parseModule >=> typecheckModule >=> desugarModule) =<< getModuleGraph
 
     loadTargets' Intelligent = do
         df <- getSessionDynFlags
diff --git a/test/CheckSpec.hs b/test/CheckSpec.hs
index 91dbfa9..7eaa4d8 100644
--- a/test/CheckSpec.hs
+++ b/test/CheckSpec.hs
@@ -56,4 +56,4 @@ spec = do
         it "emits warnings generated in GHC's desugar stage" $ do
             withDirectory_ "test/data/check-missing-warnings" $ do
                 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"