removing unnecessary return value.

2013-03-01 16:42:22 +09:00
parent 7761691795
commit d01cfac221
3 changed files with 7 additions and 7 deletions
--- a/Check.hs
+++ b/Check.hs
@@ -21,8 +21,8 @@ check :: Options -> String -> IO [String]
 check opt fileName = withGHC' fileName $ checkIt `gcatch` handleErrMsg
  where
    checkIt = do
-        (file,readLog) <- initializeGHC opt fileName options True
-        setTargetFile file
+        readLog <- initializeGHC opt fileName options True
+        setTargetFile fileName
        _ <- load LoadAllTargets
        liftIO readLog
    options