diff options
author | Adam Chlipala <adam@chlipala.net> | 2014-08-17 13:07:56 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2014-08-17 13:07:56 -0400 |
commit | e230d565f1f0604eee2c964dab5374d07c24ed6d (patch) | |
tree | e8dd9defb6693cf3a9e153494da978d2391854c2 /src/compiler.sml | |
parent | 4e6800f06759329f892ca8f40fcf50186b3785e1 (diff) |
New phase: Dbmodecheck
Diffstat (limited to 'src/compiler.sml')
-rw-r--r-- | src/compiler.sml | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/compiler.sml b/src/compiler.sml index 2190684a..716cc3d3 100644 --- a/src/compiler.sml +++ b/src/compiler.sml @@ -1401,12 +1401,19 @@ val scriptcheck = { val toScriptcheck = transform scriptcheck "scriptcheck" o toNamejs_untangle +val dbmodecheck = { + func = DbModeCheck.classify, + print = MonoPrint.p_file MonoEnv.empty +} + +val toDbmodecheck = transform dbmodecheck "dbmodecheck" o toScriptcheck + val jscomp = { func = JsComp.process, print = MonoPrint.p_file MonoEnv.empty } -val toJscomp = transform jscomp "jscomp" o toScriptcheck +val toJscomp = transform jscomp "jscomp" o toDbmodecheck val toMono_opt3 = transform mono_opt "mono_opt3" o toJscomp |