From 407e41489cc22fbf0518fd370530f8857b8c3ed0 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Thu, 3 Oct 2024 18:23:50 -0600 Subject: Clean up warnings and remove unused files. --- src/Language/Fiddle/Compiler/ImportResolution.hs | 19 ++++++++----------- 1 file changed, 8 insertions(+), 11 deletions(-) (limited to 'src/Language/Fiddle/Compiler/ImportResolution.hs') diff --git a/src/Language/Fiddle/Compiler/ImportResolution.hs b/src/Language/Fiddle/Compiler/ImportResolution.hs index aacf27e..4d4bd32 100644 --- a/src/Language/Fiddle/Compiler/ImportResolution.hs +++ b/src/Language/Fiddle/Compiler/ImportResolution.hs @@ -8,33 +8,32 @@ module Language.Fiddle.Compiler.ImportResolution ) where -import qualified Codec.Compression.GZip as GZip import Control.Arrow (Arrow (second)) import Control.Monad (filterM) import Control.Monad.Identity (Identity) import Control.Monad.Trans.Maybe (MaybeT (MaybeT, runMaybeT)) -import Control.Monad.Writer.Lazy (MonadTrans (lift), MonadWriter (tell), WriterT (WriterT, runWriterT), execWriterT) -import Data.Aeson (decode, eitherDecode, encode) -import qualified Data.ByteString.Lazy as BL +import Control.Monad.Writer.Lazy (MonadTrans (lift), MonadWriter (tell), WriterT (..), execWriterT) +import Data.Aeson (eitherDecode, encode) import Data.Map (Map) -import qualified Data.Map as Map import Data.Maybe (fromMaybe) import Data.Text (Text) -import qualified Data.Text as Text import Data.Tuple (swap) import Data.Typeable import Language.Fiddle.Ast -import Language.Fiddle.Ast.FileInterface (ResolvedImport) import Language.Fiddle.Compiler -import Language.Fiddle.Compiler.Expansion +import Language.Fiddle.Compiler.Expansion () import Language.Fiddle.Internal.UnitInterface import Language.Fiddle.Types import Options.Applicative import System.Directory import System.FilePath -import System.IO import Text.Printf (printf) +import qualified Codec.Compression.GZip as GZip +import qualified Data.ByteString.Lazy as BL +import qualified Data.Map as Map +import qualified Data.Text as Text + newtype Flags = Flags { importDirectories :: [FilePath] } @@ -70,8 +69,6 @@ type M = Compile GlobalState type Annot = Commented SourceSpan -newtype ImportError = ImportError [Diagnostic] - newtype ResolvedImports = ResolvedImports { importMap :: Map Text ([Diagnostic], Maybe UnitInterface) } -- cgit