Mercurial > urweb
comparison src/main.mlton.sml @ 1808:90ebfac7e1a3
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 |