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/Secure.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'fig-web/src/Fig/Web/Secure.hs')

diff --git a/fig-web/src/Fig/Web/Secure.hs b/fig-web/src/Fig/Web/Secure.hs
index a334570..3279b53 100644
--- a/fig-web/src/Fig/Web/Secure.hs
+++ b/fig-web/src/Fig/Web/Secure.hs
@@ -13,6 +13,7 @@ import qualified Web.Scotty as Sc
 import Fig.Bus.Binary.Client
 import Fig.Web.Types
 import Fig.Web.Utils
+import Fig.Web.Auth
 import qualified Fig.Web.DB as DB
 import qualified Fig.Web.Module.Exchange as Exchange
 import qualified Fig.Web.Module.Redeem as Redeem
@@ -62,7 +63,7 @@ app args = do
       respondText "this is the secure endpoint"
     onGet "/api/status" do
       respondText "this is the secure endpoint"
-    onGet "/api/info" $ authed \creds -> do
+    onGet "/api/info" $ authed args \creds -> do
       respondText $ creds.user <> " " <> creds.email
     Exchange.secure args
     Redeem.secure args
-- 
cgit v1.2.3