1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-28 09:24:50 +09:00

Fix bug in FedURI parsing

This commit is contained in:
fr33domlover 2019-03-04 20:11:58 +00:00
parent bb662e798f
commit 378ca1b3d4

View file

@ -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
}