forge/Vervis
1
0
Fork 0
Code Pull requests Activity

Export renderSubURI to aid debugging

Browse source
This commit is contained in:
Pere Lev 2024-03-14 22:25:08 +02:00
parent ac2ef9d1b3
commit 9096e371ce
No known key found for this signature in database
GPG key ID: 5252C5C863E5E57D
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Network/FedURI.hs
View file

@ -1,6 +1,6 @@
{- This file is part of Vervis.
-
- Written 2019, 2022 by fr33domlover <fr33domlover@riseup.net>.
- Written 2019, 2022, 2024 by fr33domlover <fr33domlover@riseup.net>.
-
- ♡ Copying is an act of love. Please copy, reuse and share.
-
@ -263,9 +263,6 @@ instance PersistField LocalSubURI where
. T.stripPrefix dummyPrefix
. renderSubURI
. SubURI dummyAuthority
where
renderSubURI :: UriMode t => SubURI t -> Text
renderSubURI = renderFullURI . fromFullSubURI . fromSubURI
fromPersistValue
= bimap T.pack subUriLocal . parseSubURI' . (dummyPrefix <>)
<=< fromPersistValue
@ -506,6 +503,9 @@ toSubURI (FullSubURI s a l) = flip SubURI l <$> checkAuthority s a
fromSubURI :: UriMode t => SubURI t -> FullSubURI
fromSubURI (SubURI a l) = FullSubURI (authorityScheme a) (toFull a) l
renderSubURI :: UriMode t => SubURI t -> Text
renderSubURI = renderFullURI . fromFullSubURI . fromSubURI
uriFromSubURI :: UriMode t => SubURI t -> URI
uriFromSubURI = fromFullURI . fromFullSubURI . fromSubURI