Minor formatting changes

cardano-scaling · Jan 29, 2024 · 594558b · 594558b
1 parent 3e7b2d2
commit 594558b
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 9 deletions.
diff --git a/hydra-explorer/hydra-explorer.cabal b/hydra-explorer/hydra-explorer.cabal
@@ -16,7 +16,6 @@ source-repository head
 common project-config
   default-language:   GHC2021
   default-extensions:
-    NoImplicitPrelude
     DataKinds
     DefaultSignatures
     DeriveAnyClass
@@ -27,6 +26,7 @@ common project-config
     GADTs
     LambdaCase
     MultiWayIf
+    NoImplicitPrelude
     OverloadedStrings
     PartialTypeSignatures
     PatternSynonyms

diff --git a/hydra-explorer/src/Hydra/Explorer.hs b/hydra-explorer/src/Hydra/Explorer.hs
@@ -9,12 +9,12 @@ import Hydra.Chain.Direct.Tx (HeadObservation)
 import Hydra.Explorer.ExplorerState (ExplorerState, HeadState, aggregateHeadObservations)
 import Hydra.Logging (Tracer, Verbosity (..), traceWith, withTracer)
 import Hydra.Network (PortNumber)
-import Network.Wai (Middleware, Request (..), Response)
+import Network.Wai (Middleware, Request (..))
 import Network.Wai.Handler.Warp qualified as Warp
 import Servant (Server, throwError)
 import Servant.API (Get, Header, JSON, addHeader, (:>))
 import Servant.API.ResponseHeaders (Headers)
-import Servant.Server (Application, Handler, err404, err500, serve)
+import Servant.Server (Application, Handler, err500, serve)
 import System.Environment (withArgs)
 
 type API =
@@ -35,9 +35,7 @@ type GetHeads = IO [HeadState]
 api :: Proxy API
 api = Proxy
 
-server ::
-  GetHeads ->
-  Server API
+server :: GetHeads -> Server API
 server = handleGetHeads
 
 handleGetHeads ::
@@ -58,9 +56,6 @@ handleGetHeads getHeads = do
       return $ addHeader "application/json" $ addCorsHeaders heads
     Left (_ :: SomeException) -> throwError err500
 
-handleUnknownResource :: Request -> Handler Response
-handleUnknownResource _req = throwError err404
-
 logMiddleware :: Tracer IO APIServerLog -> Middleware
 logMiddleware tracer app' req sendResponse = do
   liftIO $