From be16af95746133d221338f5a70b8ff16cc2fe7da Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Sun, 1 Jun 2025 20:35:12 -0400 Subject: fig-web: Fix remaining nonsense --- fig-web/src/Fig/Web/Module/Exchange.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'fig-web/src/Fig/Web/Module/Exchange.hs') diff --git a/fig-web/src/Fig/Web/Module/Exchange.hs b/fig-web/src/Fig/Web/Module/Exchange.hs index 941687e..11af071 100644 --- a/fig-web/src/Fig/Web/Module/Exchange.hs +++ b/fig-web/src/Fig/Web/Module/Exchange.hs @@ -34,7 +34,7 @@ secure a = do wantCur <- formParam "wantCur" wantAmount <- formParam "wantAmount" key <- createOrder a.db.conn $ Order - { creator = creds.email + { creator = creds.twitchId , haveCur = haveCur , haveAmount = haveAmount , wantCur = wantCur @@ -43,7 +43,7 @@ secure a = do respondText $ decodeUtf8 key onPost "/api/exchange/:key" $ authed a \creds -> do key <- pathParam "key" - satisfyOrder a.db.conn key creds.email + satisfyOrder a.db.conn key creds.twitchId onDelete "/api/exchange/:key" $ authed a \_creds -> do key <- pathParam "key" cancelOrder a.db.conn key -- cgit v1.2.3