From bab19289fd0b0f7a26056c4f20b5a0f456c9bf57 Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Tue, 27 May 2025 18:31:38 -0400
Subject: Whoops

---
 fig-web/src/Fig/Web/Module/Misc.hs   | 1 +
 fig-web/src/Fig/Web/Module/Redeem.hs | 2 ++
 2 files changed, 3 insertions(+)

(limited to 'fig-web/src/Fig/Web/Module')

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"
-- 
cgit v1.2.3