hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

cosmetic change.

Browse Source
This commit is contained in:
Kazu Yamamoto 2010-04-30 18:09:26 +09:00
parent cea624aece
commit c047b9523b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Check.hs
View File

@ -21,10 +21,6 @@ checkSyntax _ file = unlines <$> check file
---------------------------------------------------------------- ----------------------------------------------------------------
-- I don't know why, but parseDynamicFlags must be used.
cmdOptions :: [Located String]
cmdOptions = map noLoc ["-Wall","-fno-warn-unused-do-bind"]
check :: String -> IO [String] check :: String -> IO [String]
check fileName = ghandle ignore $ runGhc (Just libdir) $ do check fileName = ghandle ignore $ runGhc (Just libdir) $ do
ref <- liftIO $ newIORef [] ref <- liftIO $ newIORef []
@ -44,6 +40,10 @@ check fileName = ghandle ignore $ runGhc (Just libdir) $ do
ignore :: SomeException -> IO [String] ignore :: SomeException -> IO [String]
ignore _ = return [] ignore _ = return []
-- I don't know why, but parseDynamicFlags must be used.
cmdOptions :: [Located String]
cmdOptions = map noLoc ["-Wall","-fno-warn-unused-do-bind"]
---------------------------------------------------------------- ----------------------------------------------------------------
refLogger :: IORef [String] -> WarnErrLogger refLogger :: IORef [String] -> WarnErrLogger