Clean up warnings and remove unused files.

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)