From fad03365155308344b69f75d4b745740b69082c5 Mon Sep 17 00:00:00 2001
From: hashirama <hashirama@noreply.localhost>
Date: Thu, 30 Jan 2025 18:04:09 +0000
Subject: [PATCH] WIP

---
 src/Keyboard.hs | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 src/Keyboard.hs

diff --git a/src/Keyboard.hs b/src/Keyboard.hs
new file mode 100644
index 0000000..9fbc517
--- /dev/null
+++ b/src/Keyboard.hs
@@ -0,0 +1,9 @@
+import Data.Text.Lazy             as TL
+
+parseKB :: [String] -> [String]
+parseKB keylist = do {-
+        the thing is, we need to process this as a list, maybe with Map
+-}
+  our_keylist = TL.pack keylist
+  our_operator = TL.pack "-"
+  splited = TL.unpack $ TL.splitOn our_operator our_keylist