From 424d65e53b99c65f07f36578e3d0975c4d093c0e Mon Sep 17 00:00:00 2001
From: Akshay Nair <phenax5@gmail.com>
Date: Sun, 5 Oct 2025 22:21:42 +0530
Subject: Add extend config property to extend configs + move defaults

---
 lib/Daffm/Keymap.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/Daffm/Keymap.hs')

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]
-- 
cgit v1.3.1