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/Args.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/src/Chelleport/Args.hs b/src/Chelleport/Args.hs
index 8c36c85..d01e94f 100644
--- a/src/Chelleport/Args.hs
+++ b/src/Chelleport/Args.hs
@@ -13,6 +13,6 @@ parseArgs (arg : args)
   | otherwise = Left $ "Unrecognized argument: " ++ arg
 
 updateMode :: String -> Configuration -> Either String Configuration
-updateMode "hints" cfg = Right cfg {configMode = defaultHintsMode}
-updateMode "search" cfg = Right cfg {configMode = defaultSearchMode}
+updateMode "hints" cfg = Right cfg {configMode = ModeHints def}
+updateMode "search" cfg = Right cfg {configMode = ModeSearch def}
 updateMode mode _ = Left $ "Invalid mode: " ++ mode
-- 
cgit v1.3.1