From 2fac80aa1727a200f576f899bb325f523842c3ff Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Wed, 1 May 2024 22:35:36 -0400 Subject: Turn on more Haskell errors I actually thought these were turned on, but found that they weren't when I was investigating Haddock stuff. There aren't many violations, so I just turned them on and fixed the violations real quick. --- Biz/Dragons.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'Biz/Dragons.hs') diff --git a/Biz/Dragons.hs b/Biz/Dragons.hs index 7e626da..4497f8e 100644 --- a/Biz/Dragons.hs +++ b/Biz/Dragons.hs @@ -77,7 +77,6 @@ import NeatInterpolation import qualified Network.Wai as Wai import qualified Network.Wai.Handler.Warp as Warp import Servant -import Servant.API.Generic (ToServantApi, genericApi, toServant, (:-)) import qualified Servant.Auth as Auth import qualified Servant.Auth.Server as Auth import qualified Servant.HTML.Lucid as Lucid @@ -743,7 +742,9 @@ startup quiet = do oAuthArgs <- Envy.decodeWithDefaults Envy.defConfig kp <- Acid.openLocalStateFrom (keep cfg) init :: IO (Acid.AcidState Keep) jwk <- Auth.generateKey -- TODO: store this in a file somewhere - let ForgeURL url = homeExample cfg + let url = case homeExample cfg of + ForgeURL u -> u + CLISubmission -> "" unless quiet <| do Log.info ["boot", "dragons"] >> Log.br Log.info ["boot", "area", show <| area cfg] >> Log.br -- cgit v1.2.3