From 42d8ab162febc98c081baec42d5278687829bb58 Mon Sep 17 00:00:00 2001 From: defanor Date: Tue, 14 Nov 2017 00:18:53 +0300 Subject: Fix shortcut query escaping It used to escape "reserved" instead of "unreserved" characters. --- Pancake.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Pancake.hs') diff --git a/Pancake.hs b/Pancake.hs index 2b5784a..564d176 100644 --- a/Pancake.hs +++ b/Pancake.hs @@ -229,7 +229,7 @@ command ShowCurrent = do ((u, _):_, _) -> liftIO $ putErrLn $ show u _ -> pure () command (Shortcut u q) = command . GoTo Nothing . fromJust . parseURI $ - u ++ escapeURIString isReserved q + u ++ escapeURIString isUnreserved q command ReloadConfig = updateConfig command Quit = liftIO $ do dir <- getXdgDirectory XdgCache "pancake" -- cgit v1.2.3