3 files changed, 8 insertions, 5 deletions
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
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