From ac0ac2dac7fcd763fc908b9947a4cd8c8062baee Mon Sep 17 00:00:00 2001 From: Samuel Hammersberg Date: Wed, 8 Mar 2023 10:27:39 +0100 Subject: [PATCH] Removed a few imports. --- src/Codegen/Codegen.hs | 4 +--- src/Main.hs | 4 ++-- 2 files changed, 3 insertions(+), 5 deletions(-) diff --git a/src/Codegen/Codegen.hs b/src/Codegen/Codegen.hs index 8c7c1d3..ffa1af5 100644 --- a/src/Codegen/Codegen.hs +++ b/src/Codegen/Codegen.hs @@ -8,10 +8,8 @@ import Codegen.LlvmIr (CallingConvention (..), LLVMComp (..), LLVMIr (..), LLVMType (..), LLVMValue (..), Visibility (..), llvmIrToString) -import Control.Monad.State (StateT, execStateT, foldM, foldM_, gets, - modify) +import Control.Monad.State (StateT, execStateT, foldM_, gets, modify) import qualified Data.Bifunctor as BI -import Data.Foldable (traverse_) import Data.List.Extra (trim) import Data.Map (Map) import qualified Data.Map as Map diff --git a/src/Main.hs b/src/Main.hs index 01d4f1d..e3a924a 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -9,12 +9,12 @@ import Grammar.Par (myLexer, pProgram) import Grammar.Print (printTree) -- import Interpreter (interpret) -import Control.Monad (unless, when) +import Control.Monad (when) import Data.List.Extra (isSuffixOf) import LambdaLifter (lambdaLift) import Renamer (rename) import System.Directory (createDirectory, doesPathExist, - getDirectoryContents, removeDirectory, + getDirectoryContents, removeDirectoryRecursive, setCurrentDirectory) import System.Environment (getArgs)