cosmetic change.

This commit is contained in:
Kazu Yamamoto 2011-11-02 10:38:19 +09:00
parent c25da2ed03
commit fde88dedd1

View File

@ -1,6 +1,7 @@
module Check (checkSyntax) where module Check (checkSyntax) where
import Cabal import Cabal
import CabalDev (modifyOptions)
import Control.Applicative import Control.Applicative
import CoreMonad import CoreMonad
import ErrMsg import ErrMsg
@ -9,12 +10,9 @@ import GHC
import Prelude hiding (catch) import Prelude hiding (catch)
import Types import Types
import CabalDev (modifyOptions)
---------------------------------------------------------------- ----------------------------------------------------------------
checkSyntax :: Options -> String -> IO String checkSyntax :: Options -> String -> IO String
--checkSyntax opt file = unlines <$> check opt file
checkSyntax opt file = do checkSyntax opt file = do
opt' <- modifyOptions opt opt' <- modifyOptions opt
unlines <$> check opt' file unlines <$> check opt' file