From 07adfbdcb959e2a789551e516bd389ce0002c6f8 Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Mon, 18 Nov 2024 05:11:16 -0500
Subject: Use the right field names

---
 src/Main.purs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Main.purs b/src/Main.purs
index 87a3ccf..02d1b08 100644
--- a/src/Main.purs
+++ b/src/Main.purs
@@ -237,12 +237,12 @@ mainAuth = launchAff_ do
     liftEffect $ Ev.preventDefault ev
     usernameInp <- byId "lcolonq-auth-username"
     passwordInp <- byId "lcolonq-auth-password"
-    user <- getValue usernameInp
-    pass <- getValue passwordInp
+    username <- getValue usernameInp
+    password <- getValue passwordInp
     { text: resp } <- fetch ("/api/firstfactor")
       { method: POST
       , headers: { "Content-Type": "application/json" }
-      , body: UI.toJSON { user, pass }
+      , body: UI.toJSON { username, password }
       }
     res <- resp
     liftEffect $ log res
-- 
cgit v1.2.3