clean up warnings

5 files changed, 3 insertions, 6 deletions

diff --git a/backend/app/Main.hs b/backend/app/Main.hs
index 445b3d1..7ddb475 100644
--- a/backend/app/Main.hs
+++ b/backend/app/Main.hs
@@ -2,6 +2,7 @@
 {-# LANGUAGE NamedFieldPuns #-}
 {-# LANGUAGE NondecreasingIndentation #-}
 {-# LANGUAGE RecordWildCards #-}
+{-# OPTIONS_GHC -fno-warn-name-shadowing #-}
 
 module Main where
 
@@ -14,7 +15,7 @@ import Control.Monad
 import Control.Monad.Trans (liftIO)
 import Data.Aeson qualified as J
 import Data.Aeson.KeyMap qualified as JM
-import Data.Attoparsec.Char8 as P
+import Data.Attoparsec.Char8 qualified as P
 import Data.ByteString.Char8 qualified as B
 import Data.ByteString.Lazy.UTF8 qualified as LB
 import Data.ByteString.UTF8 qualified as B
@@ -29,7 +30,6 @@ import Data.UUID.V4 qualified as U
 import Debug.Trace
 import Git qualified as G
 import Git.Libgit2 qualified as GB
-import Network.HTTP.Types
 import Network.HTTP.Types.Status qualified as W
 import Network.Wai qualified as W
 import Network.Wai.Handler.Warp qualified as W
diff --git a/backend/lib/ACMS/API/REST.hs b/backend/lib/ACMS/API/REST.hs
index 6aca780..74d402c 100644
--- a/backend/lib/ACMS/API/REST.hs
+++ b/backend/lib/ACMS/API/REST.hs
@@ -6,6 +6,7 @@ module ACMS.API.REST where
 import Network.HTTP.Simple
 #else
 import Data.ByteString.Char8 qualified as B
+import Data.ByteString.Lazy.UTF8 qualified as LB
 import Data.Maybe
 import Data.String
 import JavaScript.Web.XMLHttpRequest
@@ -14,7 +15,6 @@ import Miso.String qualified as J
 import Control.Monad.Catch (MonadThrow)
 import Data.Aeson qualified as A
 import Data.ByteString.Lazy.Char8 qualified as LB
-import Data.ByteString.Lazy.UTF8 qualified as LB
 import Data.Function ((&))
 import Miso (JSM)
 import Miso.String (MisoString)
diff --git a/frontend/app/Page/EditValue.hs b/frontend/app/Page/EditValue.hs
index cf8ef50..8c91955 100644
--- a/frontend/app/Page/EditValue.hs
+++ b/frontend/app/Page/EditValue.hs
@@ -11,7 +11,6 @@ import ACMS.API.REST.Collection qualified as API.REST.Collection
 import Control.Monad.Catch (SomeException, try)
 import Data.Aeson qualified as A
 import Data.Aeson.KeyMap qualified as AM
-import Data.ByteString.Lazy.UTF8 as LB
 import Data.Maybe
 import Effect (Eff)
 import Form qualified as F
diff --git a/frontend/app/Page/NewCollection.hs b/frontend/app/Page/NewCollection.hs
index a15d4a7..bc789f8 100644
--- a/frontend/app/Page/NewCollection.hs
+++ b/frontend/app/Page/NewCollection.hs
@@ -10,7 +10,6 @@ where
 import ACMS.API.REST qualified as API.REST
 import Control.Monad.Catch (SomeException, try)
 import Data.Aeson qualified as A
-import Data.Text qualified as T
 import Effect (Eff)
 import Effect qualified as E
 import Form qualified as F
diff --git a/frontend/app/Schema.hs b/frontend/app/Schema.hs
index bc504cc..a9a093b 100644
--- a/frontend/app/Schema.hs
+++ b/frontend/app/Schema.hs
@@ -15,7 +15,6 @@ import Data.Aeson.KeyMap qualified as AM
 import Data.List
 import Data.Map qualified as M
 import Data.Maybe
-import Data.Text qualified as T
 import Form qualified as F
 import Miso
 import Miso.String (MisoString, fromMisoString, toMisoString)