diff options
| author | LLLL Colonq <llll@colonq> | 2025-05-27 18:31:38 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2025-05-27 18:31:38 -0400 |
| commit | bab19289fd0b0f7a26056c4f20b5a0f456c9bf57 (patch) | |
| tree | 2b457b7889e65f2a215161c25c4e099ff1932d32 /fig-web/src/Fig/Web/Module | |
| parent | 457fd37332d0ba7bf1aaba8cd4ad399214441510 (diff) | |
Whoops
Diffstat (limited to 'fig-web/src/Fig/Web/Module')
| -rw-r--r-- | fig-web/src/Fig/Web/Module/Misc.hs | 1 | ||||
| -rw-r--r-- | fig-web/src/Fig/Web/Module/Redeem.hs | 2 |
2 files changed, 3 insertions, 0 deletions
diff --git a/fig-web/src/Fig/Web/Module/Misc.hs b/fig-web/src/Fig/Web/Module/Misc.hs index b193314..d16df6c 100644 --- a/fig-web/src/Fig/Web/Module/Misc.hs +++ b/fig-web/src/Fig/Web/Module/Misc.hs @@ -15,6 +15,7 @@ import qualified Fig.Web.DB as DB public :: Module public a = do onGet "/api/motd" do + log "getting motd" DB.get a.db "motd" >>= \case Nothing -> respondText "" Just val -> respondText $ decodeUtf8 val diff --git a/fig-web/src/Fig/Web/Module/Redeem.hs b/fig-web/src/Fig/Web/Module/Redeem.hs index de66d8b..2d72f66 100644 --- a/fig-web/src/Fig/Web/Module/Redeem.hs +++ b/fig-web/src/Fig/Web/Module/Redeem.hs @@ -12,6 +12,8 @@ import Fig.Web.Types secure :: Module secure a = do + onGet "/api/redeeminfo" do + respondText "hiiiiiii" onPost "/api/redeem" $ authed \creds -> do name <- formParam "name" input <- formParamMaybe "input" |