Mercurial > urweb
diff src/main.mlton.sml @ 1266:459a334345ae
-moduleOf command-line option; compatibility fixes and better error messages for SQLite
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 27 May 2010 16:36:17 -0400 |
parents | a7b773f1d053 |
children | 4359e185d3af |
line wrap: on
line diff
--- a/src/main.mlton.sml Thu May 27 15:10:52 2010 -0400 +++ b/src/main.mlton.sml Thu May 27 16:36:17 2010 -0400 @@ -85,6 +85,9 @@ | "-iflow" :: rest => (Compiler.doIflow := true; doArgs rest) + | "-moduleOf" :: fname :: _ => + (print (Compiler.moduleOf fname ^ "\n"); + OS.Process.exit OS.Process.success) | arg :: rest => (if size arg > 0 andalso String.sub (arg, 0) = #"-" then raise Fail ("Unknown flag " ^ arg)