From b305546950a6742f25023e2ffece423905e1bda8 Mon Sep 17 00:00:00 2001
From: Akshay Nair <phenax5@gmail.com>
Date: Sat, 28 Dec 2024 20:27:04 +0530
Subject: Refactor mode data type

---
 src/Chelleport.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/Chelleport.hs')

diff --git a/src/Chelleport.hs b/src/Chelleport.hs
index 370951e..4ad20a0 100644
--- a/src/Chelleport.hs
+++ b/src/Chelleport.hs
@@ -10,6 +10,7 @@ import Chelleport.Utils ((<||>))
 import qualified Chelleport.View as View
 import Control.Monad.IO.Class (MonadIO)
 import Control.Monad.Reader (ReaderT (runReaderT))
+import Data.Default (Default (def))
 import Data.Maybe (fromMaybe)
 import qualified SDL
 
@@ -33,10 +34,10 @@ eventHandler state event =
           Just ShutdownApp
       -- <C-s>: Enable search mode
       | checkKey [ctrl, key SDL.KeycodeS, pressed] ev ->
-          Just $ SetMode defaultSearchMode
+          Just $ SetMode $ ModeSearch def
       -- <C-t>: Enable hints mode
       | checkKey [ctrl, key SDL.KeycodeT, pressed] ev ->
-          Just $ SetMode defaultHintsMode
+          Just $ SetMode $ ModeHints def
       -- <C-n>, <C-p>: Search increment next/prev
       | checkKey [ctrl, key SDL.KeycodeN, pressed] ev ->
           Just $ IncrementHighlightIndex (stateRepetition state)
-- 
cgit v1.3.1