diff options
| author | Akshay Nair <phenax5@gmail.com> | 2024-12-28 14:53:58 +0530 |
|---|---|---|
| committer | Akshay Nair <phenax5@gmail.com> | 2024-12-28 14:53:58 +0530 |
| commit | 568923344f0941b2771459dd8dbe935ac971a968 (patch) | |
| tree | 54a07e8a3c25c85b299fe9d9273620972f03b508 /src/Chelleport/AppState.hs | |
| parent | b8c389eac5f875fc7ae9a5ab9ac446d24a079448 (diff) | |
| download | chelleport-568923344f0941b2771459dd8dbe935ac971a968.tar.gz chelleport-568923344f0941b2771459dd8dbe935ac971a968.zip | |
Allow clicking with enter
Diffstat (limited to 'src/Chelleport/AppState.hs')
| -rw-r--r-- | src/Chelleport/AppState.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Chelleport/AppState.hs b/src/Chelleport/AppState.hs index 4c8e0a8..fe397e8 100644 --- a/src/Chelleport/AppState.hs +++ b/src/Chelleport/AppState.hs @@ -9,6 +9,7 @@ import Chelleport.Types import Chelleport.Utils (cIntToInt, clamp, intToCInt, isEmpty, itemAt) import Control.Monad (replicateM_) import Data.Char (toLower) +import Data.Default (Default (def)) import Data.Maybe (isJust) import qualified Text.Fuzzy as Fuzzy @@ -16,7 +17,7 @@ initialState :: (Monad m) => Configuration -> m (State, Maybe AppAction) initialState config = do let cells = either error id $ generateGrid 0 (rows, columns) hintKeys let action = Just $ SetMode $ configMode config - pure (defaultAppState {stateGrid = cells}, action) + pure (def {stateGrid = cells}, action) where rows = 9 columns = 16 |