Update src/Keyboard.hs

src/Keyboard.hs

@@ -0,0 +1,12 @@
+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
+
+-- getting the keys is partially implemented here:
+-- https://git.ajattix.org/hashirama/haskell-examples/src/branch/main/keyPress.hs