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