From 18498b603261e391a4456d9b3d41477a438927cf Mon Sep 17 00:00:00 2001
From: Rene Vergara <rene@vergara.network>
Date: Tue, 6 Sep 2022 15:52:32 -0500
Subject: [PATCH] Correct response code for endpoint

---
 src/ZGoBackend.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/ZGoBackend.hs b/src/ZGoBackend.hs
index 1d5ab68..1a0928a 100644
--- a/src/ZGoBackend.hs
+++ b/src/ZGoBackend.hs
@@ -602,7 +602,7 @@ routes pipe config = do
     oAdd <- param "address"
     c <- param "code"
     liftAndCatchIO $ run (addAccCode oAdd c)
-    status created201
+    status accepted202
   --Get user associated with session
   get "/api/user" $ do
     sess <- param "session"