format time as rfc 2616

2024-11-07 17:18:01 +02:00 · 2024-11-07 17:18:01 +02:00 · c5465b93f1
commit c5465b93f1
parent 13bda9e6ae
1 changed files with 1 additions and 1 deletions
--- a/src/Fedi/Signature/Sign.hs
+++ b/src/Fedi/Signature/Sign.hs
@ -20,7 +20,7 @@ signSignature
  :: UserDetails -> String -> String -> ByteString -> IO HttpSignature
 signSignature details host requestTarget body = do
  date <- Time.getCurrentTime
-    <&> Time.formatTime Time.defaultTimeLocale Time.rfc822DateFormat
+    <&> Time.formatTime Time.defaultTimeLocale "%a, %d %b %Y %H:%M:%S GMT"

  let
    digest = "SHA-256=" <> encodeBase64 (makeDigest body)