diff options
| author | Ben Sima <ben@bsima.me> | 2024-05-01 22:35:36 -0400 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2024-05-09 21:38:52 -0400 |
| commit | 2fac80aa1727a200f576f899bb325f523842c3ff (patch) | |
| tree | 66668874a8e7a546473ba66d1159cf36c9751dc5 /Biz/Dragons.hs | |
| parent | d71c6f8c5955e8a9861e3f3957b293a369aac954 (diff) | |
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.
Diffstat (limited to 'Biz/Dragons.hs')
| -rw-r--r-- | Biz/Dragons.hs | 5 |
1 files changed, 3 insertions, 2 deletions
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 -> "<CLISubmission>" unless quiet <| do Log.info ["boot", "dragons"] >> Log.br Log.info ["boot", "area", show <| area cfg] >> Log.br |