diff options
author | defanor <defanor@uberspace.net> | 2017-11-14 00:18:53 +0300 |
---|---|---|
committer | defanor <defanor@uberspace.net> | 2017-11-14 00:18:53 +0300 |
commit | 42d8ab162febc98c081baec42d5278687829bb58 (patch) | |
tree | ffad804a14441ed95077d179beb319ef8e5e4b6f /Pancake.hs | |
parent | d9d4044525c7b76adc32218ee999fdfaa3b510da (diff) |
Fix shortcut query escaping
It used to escape "reserved" instead of "unreserved" characters.
Diffstat (limited to 'Pancake.hs')
-rw-r--r-- | Pancake.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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" |