"Dummy:0:0" -> "<filename>:0:0".

2012-12-07 14:27:02 +09:00
parent 5189977cbc
commit c7bd0d8863
2 changed files with 6 additions and 3 deletions
--- a/Check.hs
+++ b/Check.hs
@@ -18,7 +18,7 @@ checkSyntax opt file = unlines <$> check opt file
 ----------------------------------------------------------------

 check :: Options -> String -> IO [String]
-check opt fileName = withGHC $ checkIt `gcatch` handleErrMsg
+check opt fileName = withGHC' fileName $ checkIt `gcatch` handleErrMsg
  where
    checkIt = do
        (file,readLog) <- initializeGHC opt fileName options True