api: improve error message

change-metrics · Jan 5, 2024 · 72bf345 · 72bf345
1 parent f3b2746
commit 72bf345
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 4 deletions.
diff --git a/src/Effectful/Servant.hs b/src/Effectful/Servant.hs
@@ -27,7 +27,7 @@ runWarpServerSettingsContext settings cfg serverEff middleware = do
     ( \es ->
         Warp.runSettings settings (middleware (hoistEff @api es cfg serverEff))
     )
-  error "Warp exited"
+  error "Oops, the listening server (warp) exited, that should not have happened"
 
 hoistEff ::
   forall (api :: Type) (context :: [Type]) (es :: [Effect]).

diff --git a/src/Monocle/Main.hs b/src/Monocle/Main.hs
@@ -181,9 +181,7 @@ run' ApiConfig {..} aplogger = E.runConcurrent $ runLoggerEffect do
         cfg
         (rootServer cookieCfg)
         middleware
-  case r of
-    Left e -> error (show e)
-    Right e -> error (show e)
+  error $ "The impossible has happened, the server stopped: " <> show r
  where
   corsPolicy =
     simpleCorsResourcePolicy {corsRequestHeaders = ["content-type"]}