gc

2023-12-07 15:07:54 -07:00
parent c48a4ef4c0
commit a00405ebd4
3 changed files with 61 additions and 10 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -45,6 +45,12 @@ options = RLPCOptions
        <> value EvaluatorGM
        <> help "the intermediate layer used to model evaluation"
        )
+    <*> option auto
+        (  long "heap-trigger"
+        <> metavar "INT"
+        <> help "the number of nodes allowed on the heap before\
+                \triggering the garbage collector"
+        )
    <*> some (argument str $ metavar "FILES...")
    where
        infixr 9 #