From aabbd5ce335d0a523f9bf7c553aefcc50d4371bd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Gr=C3=B6ber?= <dxld@darkboxed.org>
Date: Wed, 5 Aug 2015 10:16:27 +0200
Subject: [PATCH] Fix resolveModule Cpp test

---
 test/TargetSpec.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/test/TargetSpec.hs b/test/TargetSpec.hs
index e75807c..36e1bed 100644
--- a/test/TargetSpec.hs
+++ b/test/TargetSpec.hs
@@ -40,8 +40,8 @@ spec = do
     describe "resolveModule" $ do
         it "Works when a module given as path uses CPP" $ do
             dir <- getCurrentDirectory
-            print dir
             let srcDirs = [dir </> "test/data/target/src"]
             withLightHscEnv [] $ \env -> runNullLog $ do
-                Just _ <- resolveModule env srcDirs (Left $ dir </> "test/data/target/src/A/B/C/D/E.hs")
+                x <- resolveModule env srcDirs (Left $ dir </> "test/data/target/Cpp.hs")
+                x `shouldBe` Just (ModulePath "test/data/target/Cpp.hs" "Cpp")
                 return ()