Mercurial > urweb

comparison src/main.mlton.sml @ 1808:90ebfac7e1a3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Better error message for funky command lines
author Adam Chlipala <adam@chlipala.net>
date Sat, 18 Aug 2012 13:51:41 -0400
parents 518e0b23c4ef
children b8fa7441e637
comparison
equal deleted inserted replaced
1807:15eb501a17d0 1808:90ebfac7e1a3
167 val () = doArgs args 167 val () = doArgs args
168 168
169 val job = 169 val job =
170 case !sources of 170 case !sources of
171 [file] => file 171 [file] => file
172 | _ => printVersion () 172 | _ =>
173 if List.exists (fn s => s <> "-version") args then
174 raise Fail "Zero or multiple input files specified; only one is allowed."
175 else
176 printVersion ()
173 in 177 in
174 case (!css, !demo, !tutorial) of 178 case (!css, !demo, !tutorial) of
175 (true, _, _) => 179 (true, _, _) =>
176 (case Compiler.run Compiler.toCss job of 180 (case Compiler.run Compiler.toCss job of
177 NONE => OS.Process.failure 181 NONE => OS.Process.failure