diff options
| author | Akshay Nair <phenax5@gmail.com> | 2024-12-14 11:46:48 +0530 |
|---|---|---|
| committer | Akshay Nair <phenax5@gmail.com> | 2024-12-14 11:54:06 +0530 |
| commit | 7ab99bd80e30d0cc2cf21e4cda47870821b8fd47 (patch) | |
| tree | c2fe30dcda461a34beaa740684d613083d144dd1 /src/Chelleport.hs | |
| parent | 80add34b15855932e9201d7426d9df01aa82c845 (diff) | |
| download | chelleport-7ab99bd80e30d0cc2cf21e4cda47870821b8fd47.tar.gz chelleport-7ab99bd80e30d0cc2cf21e4cda47870821b8fd47.zip | |
Fix sequence generation for grid
Diffstat (limited to '')
| -rw-r--r-- | src/Chelleport.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Chelleport.hs b/src/Chelleport.hs index f34bf27..74c61e7 100644 --- a/src/Chelleport.hs +++ b/src/Chelleport.hs @@ -6,7 +6,6 @@ import Chelleport.KeySequence (eventToKeycode, generateKeyCells, isValidKey, nex import Control.Monad (forM_, unless, void) import Data.IORef (modifyIORef', newIORef, readIORef) import Data.List (isPrefixOf) -import Data.Text (splitOn) import qualified Data.Text as Text import qualified SDL import Unsafe.Coerce (unsafeCoerce) @@ -34,7 +33,7 @@ initialState _ctx = do where rows = 16 columns = 16 - hintKeys = "ABCDEFGIMNOPRSTUVWXYZ" + hintKeys = "ABCDEFGHIJKLMNOPRSTUVWXYZ1234567890" render :: State -> DrawContext -> IO () render state ctx = do |