diff --git a/Language/Haskell/GhcMod/Test.hs b/Language/Haskell/GhcMod/Test.hs
index e93577b..0e95171 100644
--- 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)