From a5635920810bfdc4f599871896e5697935c08e04 Mon Sep 17 00:00:00 2001 From: Keagan McClelland Date: Wed, 29 Sep 2021 11:05:07 -0600 Subject: [PATCH] clean up unused imports --- src/Foundation.hs | 2 -- src/Lib/PkgRepository.hs | 11 ++++------- 2 files changed, 4 insertions(+), 9 deletions(-) diff --git a/src/Foundation.hs b/src/Foundation.hs index 44c228c..29632a6 100644 --- a/src/Foundation.hs +++ b/src/Foundation.hs @@ -26,7 +26,6 @@ import Yesod.Core.Types ( HandlerData(handlerEnv) ) import qualified Yesod.Core.Unsafe as Unsafe -import qualified Control.Monad.Logger.Extras as Extra import Control.Monad.Logger.Extras ( wrapSGRCode ) import Control.Monad.Reader.Has ( Has(extract, update) ) import Data.String.Interpolate.IsString @@ -42,7 +41,6 @@ import System.Console.ANSI.Codes ( Color(..) , SGR(SetColor) ) import System.FilePath ( () ) -import Yesod ( defaultMessageLoggerSource ) import Yesod.Persist.Core -- | The foundation datatype for your application. This can be a good place to diff --git a/src/Lib/PkgRepository.hs b/src/Lib/PkgRepository.hs index df331af..bdbf646 100644 --- a/src/Lib/PkgRepository.hs +++ b/src/Lib/PkgRepository.hs @@ -51,18 +51,18 @@ import Startlude ( ($) , (<>) , Bool(..) , ByteString - , Down(Down) - , Either(Left, Right) + , Down(..) + , Either(..) , Eq((==)) , Exception , FilePath , IO , Integer - , Maybe(Just, Nothing) + , Maybe(..) , MonadIO(liftIO) , MonadReader , Show - , SomeException(SomeException) + , SomeException(..) , filter , find , for_ @@ -70,7 +70,6 @@ import Startlude ( ($) , headMay , not , partitionEithers - , print , pure , show , sortOn @@ -91,10 +90,8 @@ import System.FilePath ( (<.>) import UnliftIO ( MonadUnliftIO , askRunInIO , async - , mapConcurrently , mapConcurrently_ , newEmptyMVar - , onException , takeMVar , wait )