diff options
Diffstat (limited to 'backend')
| -rw-r--r-- | backend/app/Main.hs | 4 | ||||
| -rw-r--r-- | backend/lib/ACMS/API/REST.hs | 2 |
2 files changed, 3 insertions, 3 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) |