diff options
Diffstat (limited to 'src/Chelleport/KeySequence.hs')
| -rw-r--r-- | src/Chelleport/KeySequence.hs | 17 |
1 files changed, 1 insertions, 16 deletions
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 |