Mercurial > urweb

diff src/main.mlton.sml @ 1745:518e0b23c4ef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
-dumpTypesOnError
author Adam Chlipala <adam@chlipala.net>
date Sat, 05 May 2012 12:58:13 -0400
parents 6fcce0592178
children 90ebfac7e1a3
line wrap: on
line diff
--- a/src/main.mlton.sml	Sat May 05 12:45:35 2012 -0400
+++ b/src/main.mlton.sml	Sat May 05 12:58:13 2012 -0400
@@ -43,6 +43,7 @@
         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 @@
               | "-dumpTypes" :: rest =>
                 (Elaborate.dumpTypes := true;
                  doArgs rest)
+              | "-dumpTypesOnError" :: rest =>
+                (Elaborate.dumpTypesOnError := true;
+                 doArgs rest)
               | "-unifyMore" :: rest =>
                 (Elaborate.unifyMore := true;
                  doArgs rest)