diff options
| author | Akshay Nair <phenax5@gmail.com> | 2024-12-28 20:27:04 +0530 |
|---|---|---|
| committer | Akshay Nair <phenax5@gmail.com> | 2024-12-28 20:27:04 +0530 |
| commit | b305546950a6742f25023e2ffece423905e1bda8 (patch) | |
| tree | 279f16bc685d4d3ac90b947dbaa1bfd8ef17265f /src/Chelleport/Args.hs | |
| parent | 568923344f0941b2771459dd8dbe935ac971a968 (diff) | |
| download | chelleport-b305546950a6742f25023e2ffece423905e1bda8.tar.gz chelleport-b305546950a6742f25023e2ffece423905e1bda8.zip | |
Refactor mode data type
Diffstat (limited to 'src/Chelleport/Args.hs')
| -rw-r--r-- | src/Chelleport/Args.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |