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 }