From 34907bc25dba055dfbfe91d9a91803cc75283bfa Mon Sep 17 00:00:00 2001
From: Akshay Nair <phenax5@gmail.com>
Date: Sat, 14 Dec 2024 20:07:41 +0530
Subject: Refactor view + add better highlighting of regions

---
 src/Chelleport/KeySequence.hs | 17 +----------------
 1 file changed, 1 insertion(+), 16 deletions(-)

(limited to 'src/Chelleport/KeySequence.hs')

diff --git a/src/Chelleport/KeySequence.hs b/src/Chelleport/KeySequence.hs
index 1bc50a5..52e3a54 100644
--- a/src/Chelleport/KeySequence.hs
+++ b/src/Chelleport/KeySequence.hs
@@ -1,25 +1,10 @@
 module Chelleport.KeySequence where
 
+import Chelleport.Types (KeyGrid, KeySequence)
 import Data.List (isPrefixOf, nub)
 import qualified Data.Map as Map
 import qualified SDL
 
-type Cell = [Char]
-
-type KeySequence = [Char]
-
-type KeyGrid = [[Cell]]
-
--- padded :: Int -> a -> [a] -> [a]
--- padded 0 _ ls = ls
--- padded n x ls
---   | length ls > n = ls
---   | otherwise = padded (n - 1) x (ls ++ [x])
-
--- safeHead :: a -> [a] -> a
--- safeHead def [] = def
--- safeHead _ (x : _) = x
-
 nextChars :: KeySequence -> KeyGrid -> Maybe [Char]
 nextChars keys cells =
   case matches of
-- 
cgit v1.3.1