From ceba9d63df4ed5f66b4978a95bffcc90c55fc62c Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Sun, 1 Jun 2025 19:22:00 -0400
Subject: fig-web: Make the thing actually build

---
 fig-web/src/Fig/Web/Module/Exchange.hs | 7 ++++---
 fig-web/src/Fig/Web/Module/Redeem.hs   | 3 ++-
 2 files changed, 6 insertions(+), 4 deletions(-)

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

diff --git a/fig-web/src/Fig/Web/Module/Exchange.hs b/fig-web/src/Fig/Web/Module/Exchange.hs
index 3672265..941687e 100644
--- a/fig-web/src/Fig/Web/Module/Exchange.hs
+++ b/fig-web/src/Fig/Web/Module/Exchange.hs
@@ -18,6 +18,7 @@ import qualified Data.UUID.V4 as UUID
 
 import Fig.Web.Utils
 import Fig.Web.Types
+import Fig.Web.Auth
 
 public :: PublicModule
 public a = do
@@ -27,7 +28,7 @@ public a = do
 
 secure :: SecureModule
 secure a = do
-  onPost "/api/exchange" $ authed \creds -> do
+  onPost "/api/exchange" $ authed a \creds -> do
     haveCur <- formParam "haveCur"
     haveAmount <- formParam "haveAmount"
     wantCur <- formParam "wantCur"
@@ -40,10 +41,10 @@ secure a = do
       , wantAmount = wantAmount
       }
     respondText $ decodeUtf8 key
-  onPost "/api/exchange/:key" $ authed \creds -> do
+  onPost "/api/exchange/:key" $ authed a \creds -> do
     key <- pathParam "key"
     satisfyOrder a.db.conn key creds.email
-  onDelete "/api/exchange/:key" $ authed \_creds -> do
+  onDelete "/api/exchange/:key" $ authed a \_creds -> do
     key <- pathParam "key"
     cancelOrder a.db.conn key
 
diff --git a/fig-web/src/Fig/Web/Module/Redeem.hs b/fig-web/src/Fig/Web/Module/Redeem.hs
index fd174f6..1b5fbaa 100644
--- a/fig-web/src/Fig/Web/Module/Redeem.hs
+++ b/fig-web/src/Fig/Web/Module/Redeem.hs
@@ -9,12 +9,13 @@ import qualified Data.Text as Text
 
 import Fig.Web.Utils
 import Fig.Web.Types
+import Fig.Web.Auth
 
 secure :: SecureModule
 secure a = do
   onGet "/api/redeeminfo" do
     respondText "hiiiiiii"
-  onPost "/api/redeem" $ authed \creds -> do
+  onPost "/api/redeem" $ authed a \creds -> do
     name <- formParam "name"
     input <- formParamMaybe "input"
     log $ creds.user <> " redeemed: " <> name
-- 
cgit v1.2.3