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 }