diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2012-05-05 12:58:13 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2012-05-05 12:58:13 -0400 |
| commit | 05e13b2e6934c87fc45b991bbd49e7e2b8c83930 (patch) | |
| tree | 9cc3661046de89d0263f025bdbf935cce233811d /src/main.mlton.sml | |
| parent | 9835be3a1ebfdad7b265a966df45a87555624c95 (diff) | |
-dumpTypesOnError
Diffstat (limited to 'src/main.mlton.sml')
| -rw-r--r-- | src/main.mlton.sml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/main.mlton.sml b/src/main.mlton.sml index 4e1f8e2c..6ecb2f92 100644 --- a/src/main.mlton.sml +++ b/src/main.mlton.sml @@ -43,6 +43,7 @@ fun oneRun args = val () = (Compiler.debug := false; Elaborate.verbose := false; Elaborate.dumpTypes := false; + Elaborate.dumpTypesOnError := false; Elaborate.unifyMore := false; Compiler.dumpSource := false; Compiler.doIflow := false; @@ -103,6 +104,9 @@ fun oneRun args = | "-dumpTypes" :: rest => (Elaborate.dumpTypes := true; doArgs rest) + | "-dumpTypesOnError" :: rest => + (Elaborate.dumpTypesOnError := true; + doArgs rest) | "-unifyMore" :: rest => (Elaborate.unifyMore := true; doArgs rest) |