summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authordefanor <defanor@uberspace.net>2017-12-27 08:57:11 +0300
committerdefanor <defanor@uberspace.net>2017-12-27 08:57:11 +0300
commit9de3fb62c4fe2eb9f42ef9a4640fc89b8c809f0f (patch)
treec63b63a8de566d8fb4827e84506573511b2735e3
parentb2852cb5c6dcfd7b554be4a192387904debc7305 (diff)
Handle absolute ddg-encumbered links
-rw-r--r--Pancake.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Pancake.hs b/Pancake.hs
index a5b9418..74df237 100644
--- a/Pancake.hs
+++ b/Pancake.hs
@@ -115,7 +115,7 @@ updateConfig mp = do
loadRaw :: URI -> Pancake (URI, Maybe (BS.ByteString, Maybe URI, Maybe String))
loadRaw rawURI = do
st <- get
- let ddg = isPrefixOf "/l/?kh=-1&uddg=" $ uriToString id rawURI ""
+ let ddg = isInfixOf "/l/?kh=-1&uddg=" $ uriToString id rawURI ""
adjustedURI = case (ddg, uriIsAbsolute rawURI, history st) of
-- fix DDG links (that's rather hacky, todo: improve)
(True, _, _) -> fromMaybe rawURI $