diff options
author | 2012-08-18 13:57:48 -0400 | |
---|---|---|
committer | 2012-08-18 13:57:48 -0400 | |
commit | 7072be499e0f9837227555f73834f18463d1bd24 (patch) | |
tree | ee15ad6545872c700b2a9c47253a995659a4116d | |
parent | 0e265215e3f2c9bde5ffa019c0d97fca931d09d4 (diff) |
Add list of files to new error message
-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 |