ghc-mod/GhcMod/Check.hs

58 lines
1.6 KiB
Haskell
Raw Normal View History

module GhcMod.Check (
checkSyntax
, check
, expandTemplate
, expand
) where
2010-03-11 10:03:17 +00:00
2015-08-03 01:09:56 +00:00
import Control.Applicative
import Prelude
import Language.Haskell.GhcMod.DynFlags
import qualified Language.Haskell.GhcMod.Gap as Gap
2014-04-28 12:47:08 +00:00
import Language.Haskell.GhcMod.Logger
import Language.Haskell.GhcMod.Monad
2010-03-11 10:03:17 +00:00
----------------------------------------------------------------
2013-05-20 05:28:56 +00:00
-- | Checking syntax of a target file using GHC.
-- Warnings and errors are returned.
checkSyntax :: IOish m
=> [FilePath] -- ^ The target files.
-> GhcModT m String
2014-08-18 07:55:41 +00:00
checkSyntax [] = return ""
checkSyntax files = either id id <$> check files
2010-04-28 12:43:32 +00:00
----------------------------------------------------------------
2013-05-20 05:28:56 +00:00
-- | Checking syntax of a target file using GHC.
-- Warnings and errors are returned.
check :: IOish m
=> [FilePath] -- ^ The target files.
-> GhcModT m (Either String String)
check files =
runGmlTWith
(map Left files)
return
((fmap fst <$>) . withLogger Gap.setNoMaxRelevantBindings)
(return ())
----------------------------------------------------------------
2014-04-26 11:24:47 +00:00
-- | Expanding Haskell Template.
expandTemplate :: IOish m
=> [FilePath] -- ^ The target files.
-> GhcModT m String
2014-08-18 07:55:41 +00:00
expandTemplate [] = return ""
expandTemplate files = either id id <$> expand files
----------------------------------------------------------------
2014-04-26 11:24:47 +00:00
-- | Expanding Haskell Template.
expand :: IOish m => [FilePath] -> GhcModT m (Either String String)
expand files =
runGmlTWith
(map Left files)
return
((fmap fst <$>) . withLogger (Gap.setDumpSplices . setNoWarningFlags))
(return ())