diff options
author | defanor <defanor@uberspace.net> | 2017-12-27 08:57:11 +0300 |
---|---|---|
committer | defanor <defanor@uberspace.net> | 2017-12-27 08:57:11 +0300 |
commit | 9de3fb62c4fe2eb9f42ef9a4640fc89b8c809f0f (patch) | |
tree | c63b63a8de566d8fb4827e84506573511b2735e3 /Pancake.hs | |
parent | b2852cb5c6dcfd7b554be4a192387904debc7305 (diff) |
Handle absolute ddg-encumbered links
Diffstat (limited to 'Pancake.hs')
-rw-r--r-- | Pancake.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 $ |