diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/Daffm/Keymap.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Daffm/Keymap.hs b/lib/Daffm/Keymap.hs index aae4a95..5e5856f 100644 --- a/lib/Daffm/Keymap.hs +++ b/lib/Daffm/Keymap.hs @@ -36,7 +36,7 @@ parseKeySequence :: Text.Text -> Maybe [Key] parseKeySequence keytxt = parse keytxt [] where parse k keys = case k of - (Text.null -> True) -> pure keys + "" -> pure keys (Text.stripPrefix "<tab>" -> (Just rest')) -> parse rest' $ keys <> [V.KChar '\t'] (Text.stripPrefix "<space>" -> (Just rest')) -> parse rest' $ keys <> [V.KChar ' '] (Text.stripPrefix "<bs>" -> (Just rest')) -> parse rest' $ keys <> [V.KBS] |