From d6dbe32df6f1a01c95f9293023e2d73872fa39fe Mon Sep 17 00:00:00 2001
From: Akshay Nair <phenax5@gmail.com>
Date: Sat, 28 Dec 2024 13:09:21 +0530
Subject: Add cli arg parsing for starting in given mode

---
 src/Chelleport/Args.hs | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 src/Chelleport/Args.hs

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

diff --git a/src/Chelleport/Args.hs b/src/Chelleport/Args.hs
new file mode 100644
index 0000000..8c36c85
--- /dev/null
+++ b/src/Chelleport/Args.hs
@@ -0,0 +1,18 @@
+module Chelleport.Args where
+
+import Chelleport.Types
+import Data.Default (Default (def))
+
+parseArgs :: [String] -> Either String Configuration
+parseArgs [] = Right def
+parseArgs (arg : args)
+  | arg `elem` ["-h", "--help"] = Right $ def {configShowHelp = True}
+  | arg `elem` ["-m", "--mode"] = case args of
+      [] -> Left "Missing value for mode"
+      (mode : rest) -> parseArgs rest >>= updateMode mode
+  | 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 mode _ = Left $ "Invalid mode: " ++ mode
-- 
cgit v1.3.1