From bebe06d78263f5a749b5edba722dfc83342fcf47 Mon Sep 17 00:00:00 2001
From: Adrian Cochrane <alcinnz@lavabit.com>
Date: Tue, 2 Aug 2022 20:57:16 +1200
Subject: [PATCH] Switch to different proposed HTML syntax for
 crypto-authentication.

---
 src/Network/URI/Messages.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Network/URI/Messages.hs b/src/Network/URI/Messages.hs
index 289e30e..6450dac 100644
--- a/src/Network/URI/Messages.hs
+++ b/src/Network/URI/Messages.hs
@@ -102,11 +102,11 @@ trans ("en":_) (GeminiError '5' '2' _) = "Page deleted! Try the <a href='/'>home
 trans ("en":_) (GeminiError '5' '3' _) = "Contacted wrong server!"
 trans ("en":_) (GeminiError '5' '9' _) = "Malformed request, my bad!"
 trans ("en":_) (GeminiError '6' '1' _) = "<form><label>Authentication required" ++
-    "<input type='-argo-keypair' -argo-error='Unauthorized account!'></form>"
+    "<-argo-authenticate error='Unauthorized account!'></-argo-authenticate></form>"
 trans ("en":_) (GeminiError '6' '2' _) = "<form><label>Authentication required" ++
-    "<input type='-argo-keypair' -argo-error='Invalid account!'></form>"
+    "<-argo-authenticate error='Invalid account!'></-argo-authenticate></form>"
 trans ("en":_) (GeminiError '6' _ _) = "<form><label>Authentication required" ++
-    "<input type='-argo-keypair' -argo-error='Invalid account!'></form>"
+    "<-argo-authenticate></-argo-authenticate></form>"
 trans ("en":_) (GeminiError _ _ error) = error
 trans ("en":_) (HTTPStatus 400 _) = "I sent a bad request, according to this site."
 trans ("en":_) (HTTPStatus 401 _) = "Authentication required!" -- FIXME: Support HTTP Basic Auth.
@@ -150,7 +150,7 @@ trans ("en":_) (HTTPStatus 431 _) = "I sent more auxiliary data than this site c
 trans ("en":_) (HTTPStatus 451 _) = "Requested page cannot legally be provided!"
 
 trans ("en":_) (HTTPStatus 500 _) = "The site experienced an error generating this webpage. <em>The webmasters have probably already been automatically notified.</em>"
-trans ("en":_) (HTTPStatus 501 _) = "Bad webform for this destination webaddress! " ++ 
+trans ("en":_) (HTTPStatus 501 _) = "Bad webform for this destination webaddress! " ++
     "<em>Method not implemented</em>."
 trans ("en":_) (HTTPStatus 502 _) = "Proxyserver got a malformed response!"
 trans ("en":_) (HTTPStatus 503 _) = "The site is not available right now!"
-- 
2.30.2