cosmetic change.
This commit is contained in:
parent
c25da2ed03
commit
fde88dedd1
4
Check.hs
4
Check.hs
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user