From e6f987817e4e5f571e67d0e054a36e008f5be14e Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Sun, 3 Feb 2019 10:59:35 +0000
Subject: [PATCH] Fix: HTTP signature wasn't being sent in AP POSTs

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

diff --git a/src/Web/ActivityPub.hs b/src/Web/ActivityPub.hs
index 930b764..642db1d 100644
--- a/src/Web/ActivityPub.hs
+++ b/src/Web/ActivityPub.hs
@@ -321,6 +321,6 @@ httpPostAP manager uri headers sign value =
                     let (k, s) = sign b
                     in  (Nothing, k, s)
             req'' <- signRequest headers sign' Nothing req'
-            httpNoBody req' manager
+            httpNoBody req'' manager
     where
     consHeader n b r = r { requestHeaders = (n, b) : requestHeaders r }