From 378ca1b3d4c7924af8279efa888870d0a04d743c Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Mon, 4 Mar 2019 20:11:58 +0000
Subject: [PATCH] Fix bug in FedURI parsing
---
src/Network/FedURI.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/Network/FedURI.hs b/src/Network/FedURI.hs
index 8adc6b1..cbede6f 100644
--- a/src/Network/FedURI.hs
+++ b/src/Network/FedURI.hs
@@ -95,7 +95,7 @@ parseFedURI t = do
else Left "URI query is non-empty"
Right FedURI
{ furiHost = T.pack h
- , furiPath = T.pack p
+ , furiPath = T.pack $ uriPath uri
, furiFragment = T.pack $ uriFragment uri
}