Fix shortcut query escaping

It used to escape "reserved" instead of "unreserved" characters.

1 files changed, 1 insertions, 1 deletions

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"