module Language.Haskell.GhcMod.Check (
checkSyntax
, check
, expandTemplate
, expand
) where
import Control.Applicative ((<$>))
import GHC (Ghc)
import Language.Haskell.GhcMod.GHCApi
import qualified Language.Haskell.GhcMod.Gap as Gap
import Language.Haskell.GhcMod.Logger
import Language.Haskell.GhcMod.Types
checkSyntax :: Options
-> Cradle
-> [FilePath]
-> IO String
checkSyntax _ _ [] = return ""
checkSyntax opt cradle files = withGHC sessionName $ do
initializeFlagsWithCradle opt cradle
either id id <$> check opt files
where
sessionName = case files of
[file] -> file
_ -> "MultipleFiles"
check :: Options
-> [FilePath]
-> Ghc (Either String String)
check opt fileNames = withLogger opt setAllWaringFlags $
setTargetFiles fileNames
expandTemplate :: Options
-> Cradle
-> [FilePath]
-> IO String
expandTemplate _ _ [] = return ""
expandTemplate opt cradle files = withGHC sessionName $ do
initializeFlagsWithCradle opt cradle
either id id <$> expand opt files
where
sessionName = case files of
[file] -> file
_ -> "MultipleFiles"
expand :: Options
-> [FilePath]
-> Ghc (Either String String)
expand opt fileNames = withLogger opt (Gap.setDumpSplices . setNoWaringFlags) $
setTargetFiles fileNames