diff options
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 |