summaryrefslogtreecommitdiff
path: root/src/main.mlton.sml
diff options
context:
space:
mode:
Diffstat (limited to 'src/main.mlton.sml')
-rw-r--r--src/main.mlton.sml5
1 files changed, 3 insertions, 2 deletions
diff --git a/src/main.mlton.sml b/src/main.mlton.sml
index 34dd6382..156cafe9 100644
--- a/src/main.mlton.sml
+++ b/src/main.mlton.sml
@@ -169,9 +169,10 @@ fun oneRun args =
val job =
case !sources of
[file] => file
- | _ =>
+ | files =>
if List.exists (fn s => s <> "-version") args then
- raise Fail "Zero or multiple input files specified; only one is allowed."
+ raise Fail ("Zero or multiple input files specified; only one is allowed.\nFiles: "
+ ^ String.concatWith ", " files)
else
printVersion ()
in