WIP

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