diff options
| author | LLLL Colonq <llll@colonq> | 2025-06-01 20:35:12 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2025-06-01 20:35:12 -0400 |
| commit | be16af95746133d221338f5a70b8ff16cc2fe7da (patch) | |
| tree | e70c10bfc728aa57e4057816311e1e9a4b5c0653 /fig-web/src/Fig/Web | |
| parent | 83cbb69e40fc68606b03b26d70d0a6a0d153fda6 (diff) | |
fig-web: Fix remaining nonsense
Diffstat (limited to 'fig-web/src/Fig/Web')
| -rw-r--r-- | fig-web/src/Fig/Web/Module/Exchange.hs | 4 | ||||
| -rw-r--r-- | fig-web/src/Fig/Web/Secure.hs | 2 |
2 files changed, 3 insertions, 3 deletions
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 diff --git a/fig-web/src/Fig/Web/Secure.hs b/fig-web/src/Fig/Web/Secure.hs index 3279b53..9626aaa 100644 --- a/fig-web/src/Fig/Web/Secure.hs +++ b/fig-web/src/Fig/Web/Secure.hs @@ -64,7 +64,7 @@ app args = do onGet "/api/status" do respondText "this is the secure endpoint" onGet "/api/info" $ authed args \creds -> do - respondText $ creds.user <> " " <> creds.email + respondText $ creds.user <> " " <> creds.twitchId Exchange.secure args Redeem.secure args Sc.notFound do |