diff options
Diffstat (limited to 'Pancake/Command.hs')
-rw-r--r-- | Pancake/Command.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Pancake/Command.hs b/Pancake/Command.hs index 6adc51d..57b80c2 100644 --- a/Pancake/Command.hs +++ b/Pancake/Command.hs @@ -69,8 +69,7 @@ goTo = do -- | 'Shortcut' command parser. shortcut :: M.Map String String -> Parser Command shortcut m = do - s <- choice $ map (try . string) $ M.keys m - _ <- space + s <- choice $ map (\k -> try (string k <* space)) $ M.keys m case M.lookup s m of Nothing -> fail $ "No such shortcut: " ++ s Just u -> do |