Fix tests for 7.10

This commit is contained in:
Daniel Gröber
2015-08-14 09:50:20 +02:00
parent 9cff067a27
commit 6248372477
2 changed files with 3 additions and 2 deletions

View File

@@ -41,6 +41,6 @@ spec = do
it "Works when a module given as path uses CPP" $ do
dir <- getCurrentDirectory
let srcDirs = [dir </> "test/data/target/src"]
x <- withLightHscEnv [] $ \env -> runNullLog $ do
x <- withLightHscEnv [] $ \env -> runD $ do
resolveModule env srcDirs (Left $ dir </> "test/data/target/Cpp.hs")
liftIO $ x `shouldBe` Just (ModulePath "Cpp" $ dir </> "test/data/target/Cpp.hs")