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
         }