Don't need type errors here

2015-12-28 13:59:59 +01:00 · 2015-12-28 13:59:59 +01:00 · cee8a29a54
commit cee8a29a54
parent bcab7a0395
1 changed files with 1 additions and 1 deletions
--- a/Language/Haskell/GhcMod/Test.hs
+++ b/Language/Haskell/GhcMod/Test.hs
@ -16,7 +16,7 @@ import OccName

 test :: IOish m
      => FilePath -> GhcModT m String
-test f = runGmlT' [Left f] (return . setHscInterpreted) $ do
+test f = runGmlT' [Left f] (fmap setHscInterpreted . deferErrors) $ do
    mg <- getModuleGraph
    root <- cradleRootDir <$> cradle
    f' <- makeRelative root <$> liftIO (canonicalizePath f)