diff options
| -rw-r--r-- | src/main.mlton.sml | 5 |
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 |