diff options
| author | stuebinm | 2021-12-26 23:50:22 +0100 |
|---|---|---|
| committer | stuebinm | 2021-12-27 00:00:40 +0100 |
| commit | 4c84f7db1d43f0b13b03fe5c3d613ac2dc54bc56 (patch) | |
| tree | ffe8c47dc63dc74b83795c82cba00072eb9684de | |
| parent | 4953496ec2e63f2fe29b335d76052a3f8478a00b (diff) | |
urlencode dereferrer links
| -rw-r--r-- | lib/Uris.hs | 4 | ||||
| -rw-r--r-- | walint.cabal | 3 |
2 files changed, 4 insertions, 3 deletions
diff --git a/lib/Uris.hs b/lib/Uris.hs index 3aad1da..598aa46 100644 --- a/lib/Uris.hs +++ b/lib/Uris.hs @@ -24,7 +24,7 @@ import GHC.Generics (Generic) import GHC.TypeLits (KnownSymbol, symbolVal) import Text.Regex.TDFA ((=~)) import Witherable (mapMaybe) - +import Network.URI.Encode as URI data Substitution = Prefixed { prefix :: Text, blocked :: [Text], allowed :: [Text], scope :: [String] } @@ -98,7 +98,7 @@ applySubsts s substs uri = do Prefixed {..} | domain `elem` blocked -> Left IsBlocked | domain `elem` allowed -> Right uri - | otherwise -> Right (prefix <> domain <> rest) + | otherwise -> Right (prefix <> URI.encodeText uri) Allowed _ domains -> if domain `elem` domains then Right uri else Left (DomainIsBlocked domains) diff --git a/walint.cabal b/walint.cabal index 4f03b25..100a3d0 100644 --- a/walint.cabal +++ b/walint.cabal @@ -56,7 +56,8 @@ library extra, witherable, dotgen, - text-metrics + text-metrics, + uri-encode -- TODO: move more stuff into lib, these dependencies are silly executable walint |