Mercurial > urweb

diff src/main.mlton.sml @ 1266:459a334345ae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
-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)