minor changes

putting this on hold; implementing TTG first
2024-01-25 15:52:56 -07:00
parent bb3f73836c
commit 559fd49f2b
5 changed files with 32 additions and 34 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -63,7 +63,7 @@ options = RLPCOptions
 evaluatorReader :: ReadM Evaluator
 evaluatorReader = maybeReader $ \case
    "gm"  -> Just EvaluatorGM
-    "tim" -> Just EvaluatorTI
+    "ti"  -> Just EvaluatorTI
    _     -> Nothing

 mmany :: (Alternative f, Monoid m) => f m -> f m