diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2012-08-18 13:57:48 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2012-08-18 13:57:48 -0400 |
| commit | 7072be499e0f9837227555f73834f18463d1bd24 (patch) | |
| tree | ee15ad6545872c700b2a9c47253a995659a4116d /src/main.mlton.sml | |
| parent | 0e265215e3f2c9bde5ffa019c0d97fca931d09d4 (diff) | |
Add list of files to new error message
Diffstat (limited to 'src/main.mlton.sml')
| -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 |