From 9de3fb62c4fe2eb9f42ef9a4640fc89b8c809f0f Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Wed, 27 Dec 2017 08:57:11 +0300
Subject: Handle absolute ddg-encumbered links

---
 Pancake.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 $
-- 
cgit v1.2.3