summaryrefslogtreecommitdiff
path: root/src/main.mlton.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adam@chlipala.net>2014-02-20 10:27:15 -0500
committerGravatar Adam Chlipala <adam@chlipala.net>2014-02-20 10:27:15 -0500
commite76ee80695acce02b283d12eedc26477ace15b1f (patch)
tree42e00b6f554fae7021de8f1f5b912048114253df /src/main.mlton.sml
parenta5299611e8a126a86a7f2121aa339d69a9fa5895 (diff)
Some more nested functor bug-fixing, including generating fresh internal names at applications; still need to debug issues with datatype constructors
Diffstat (limited to 'src/main.mlton.sml')
-rw-r--r--src/main.mlton.sml7
1 files changed, 7 insertions, 0 deletions
diff --git a/src/main.mlton.sml b/src/main.mlton.sml
index 6bdc9539..71fefc48 100644
--- a/src/main.mlton.sml
+++ b/src/main.mlton.sml
@@ -124,6 +124,13 @@ fun oneRun args =
| "-dumpSource" :: rest =>
(Compiler.dumpSource := true;
doArgs rest)
+ | "-dumpVerboseSource" :: rest =>
+ (Compiler.dumpSource := true;
+ ElabPrint.debug := true;
+ ExplPrint.debug := true;
+ CorePrint.debug := true;
+ MonoPrint.debug := true;
+ doArgs rest)
| "-output" :: s :: rest =>
(Settings.setExe (SOME s);
doArgs rest)