42 lines
1.2 KiB
Haskell
42 lines
1.2 KiB
Haskell
module Language.Haskell.GhcMod.Check (checkSyntax, check) where
|
|
|
|
import Control.Applicative
|
|
import Control.Monad
|
|
import CoreMonad
|
|
import Exception
|
|
import GHC
|
|
import Language.Haskell.GhcMod.ErrMsg
|
|
import Language.Haskell.GhcMod.GHCApi
|
|
import Language.Haskell.GhcMod.Types
|
|
import Prelude
|
|
|
|
----------------------------------------------------------------
|
|
|
|
-- | Checking syntax of a target file using GHC.
|
|
-- Warnings and errors are returned.
|
|
checkSyntax :: Options
|
|
-> Cradle
|
|
-> FilePath -- ^ A target file
|
|
-> IO String
|
|
checkSyntax opt cradle file = unlines <$> withGHC file (check opt cradle file)
|
|
|
|
----------------------------------------------------------------
|
|
|
|
-- | Checking syntax of a target file using GHC.
|
|
-- Warnings and errors are returned.
|
|
check :: Options
|
|
-> Cradle
|
|
-> FilePath -- ^ A target file
|
|
-> Ghc [String]
|
|
check opt cradle fileName = checkIt `gcatch` handleErrMsg
|
|
where
|
|
checkIt = do
|
|
readLog <- initializeFlagsWithCradle opt cradle options True
|
|
setTargetFile fileName
|
|
checkSlowAndSet
|
|
void $ load LoadAllTargets
|
|
liftIO readLog
|
|
options
|
|
| expandSplice opt = "-w:" : ghcOpts opt
|
|
| otherwise = "-Wall" : ghcOpts opt
|