From 9c363a2a66f446f474dc3e87d2b0dfaf684667f2 Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Mon, 18 Nov 2024 05:07:26 -0500
Subject: Let's not be silly with our JSON

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

(limited to 'src/Main.purs')

diff --git a/src/Main.purs b/src/Main.purs
index dd0ad07..87a3ccf 100644
--- a/src/Main.purs
+++ b/src/Main.purs
@@ -242,11 +242,7 @@ mainAuth = launchAff_ do
     { text: resp } <- fetch ("/api/firstfactor")
       { method: POST
       , headers: { "Content-Type": "application/json" }
-      , body: fold
-        [ "{\"username\":\"", user
-        , "\",\"password\":\"", pass
-        , "\"}"
-        ]
+      , body: UI.toJSON { user, pass }
       }
     res <- resp
     liftEffect $ log res
-- 
cgit v1.2.3