diff options
Diffstat (limited to 'src/Language/Fiddle/Compiler.hs')
| -rw-r--r-- | src/Language/Fiddle/Compiler.hs | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/src/Language/Fiddle/Compiler.hs b/src/Language/Fiddle/Compiler.hs index a7b07ea..c029765 100644 --- a/src/Language/Fiddle/Compiler.hs +++ b/src/Language/Fiddle/Compiler.hs @@ -4,11 +4,9 @@ module Language.Fiddle.Compiler where -import Control.Arrow (Arrow (first, second)) +import Control.Arrow import Control.Monad (when) -import Control.Monad.Identity (Identity) -import Control.Monad.RWS (RWS, RWST, evalRWS, mapRWS, runRWS) -import Control.Monad.State +import Control.Monad.RWS import Control.Monad.Trans.Maybe import Control.Monad.Writer import Data.Default @@ -16,7 +14,7 @@ import Language.Fiddle.Ast import Language.Fiddle.Types import Options.Applicative import System.IO (hPutStrLn, stderr) -import Text.Parsec (SourcePos, sourceColumn, sourceLine, sourceName) +import Text.Parsec (sourceColumn, sourceLine, sourceName) data Level = Error | Warning | Info deriving (Eq, Ord, Show, Read, Enum) @@ -209,10 +207,10 @@ execCompilationPipelineWithCmdline :: ) ) execCompilationPipelineWithCmdline - (CompilationPhase flagsParser ioAction rest) = do + (CompilationPhase flagsParser ioAct rest) = do fmap ( \opts ast -> do - (diags, ms) <- ioAction opts ast + (diags, ms) <- ioAct opts ast case ms of Just s -> return $ first (diags ++) $ compile_ $ rest opts s ast Nothing -> return (diags, Nothing) |