summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAdrian Cochrane <alcinnz@lavabit.com>2022-08-02 20:57:16 +1200
committerAdrian Cochrane <alcinnz@lavabit.com>2022-08-02 20:57:16 +1200
commitbebe06d78263f5a749b5edba722dfc83342fcf47 (patch)
treee59aa476d128fad716d01cd8485d2ab6f9e2a72d
parent7cea1667ec30438e60daf696347174dccda8dee3 (diff)
downloadhurl-bebe06d78263f5a749b5edba722dfc83342fcf47.tar.gz
hurl-bebe06d78263f5a749b5edba722dfc83342fcf47.tar.bz2
hurl-bebe06d78263f5a749b5edba722dfc83342fcf47.zip
Switch to different proposed HTML syntax for crypto-authentication.
-rw-r--r--src/Network/URI/Messages.hs8
1 files 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!"