From 9dc7a9375e58cb2d0960ee0306f92113e81bea04 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Gr=C3=B6ber?= Date: Thu, 6 Aug 2015 05:18:57 +0200 Subject: [PATCH] Fix resolveModule test again --- test/TargetSpec.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/test/TargetSpec.hs b/test/TargetSpec.hs index 36e1bed..5fc1466 100644 --- a/test/TargetSpec.hs +++ b/test/TargetSpec.hs @@ -41,7 +41,6 @@ spec = do it "Works when a module given as path uses CPP" $ do dir <- getCurrentDirectory let srcDirs = [dir "test/data/target/src"] - withLightHscEnv [] $ \env -> runNullLog $ do - x <- resolveModule env srcDirs (Left $ dir "test/data/target/Cpp.hs") - x `shouldBe` Just (ModulePath "test/data/target/Cpp.hs" "Cpp") - return () + x <- withLightHscEnv [] $ \env -> runNullLog $ do + resolveModule env srcDirs (Left $ dir "test/data/target/Cpp.hs") + liftIO $ x `shouldBe` Just (ModulePath "Cpp" $ dir "test/data/target/Cpp.hs")