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 ++
 fig-web/src/Fig/Web/Secure.hs        | 2 +-
 fig-web/src/Fig/Web/Utils.hs         | 4 ++--
 4 files changed, 6 insertions(+), 3 deletions(-)

(limited to 'fig-web')

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"
diff --git a/fig-web/src/Fig/Web/Secure.hs b/fig-web/src/Fig/Web/Secure.hs
index 22135f5..b47c019 100644
--- a/fig-web/src/Fig/Web/Secure.hs
+++ b/fig-web/src/Fig/Web/Secure.hs
@@ -15,7 +15,7 @@ import Fig.Web.Types
 import Fig.Web.Utils
 import qualified Fig.Web.DB as DB
 import qualified Fig.Web.Module.Exchange as Exchange
-import qualified Fig.Web.Module.Exchange as Redeem
+import qualified Fig.Web.Module.Redeem as Redeem
 
 allBusEvents :: ModuleArgs -> BusEventHandlers
 allBusEvents args = busEvents . mconcat $ fmap ($ args)
diff --git a/fig-web/src/Fig/Web/Utils.hs b/fig-web/src/Fig/Web/Utils.hs
index 8875529..ee7fdf7 100644
--- a/fig-web/src/Fig/Web/Utils.hs
+++ b/fig-web/src/Fig/Web/Utils.hs
@@ -116,10 +116,10 @@ onPost :: Sc.RoutePattern -> Sc.ActionM () -> Sc.ScottyM ()
 onPost = Sc.post
 
 onPut :: Sc.RoutePattern -> Sc.ActionM () -> Sc.ScottyM ()
-onPut = Sc.post
+onPut = Sc.put
 
 onDelete :: Sc.RoutePattern -> Sc.ActionM () -> Sc.ScottyM ()
-onDelete = Sc.post
+onDelete = Sc.delete
 
 status :: Status -> Sc.ActionM ()
 status = Sc.status
-- 
cgit v1.2.3