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 | b3c120ed994c7fca812cc6a49935e9e9cbd3490f (patch) | |
tree | ee15ad6545872c700b2a9c47253a995659a4116d | |
parent | d039adcd9ccee4985d7e2d77dbd9f7580cd12577 (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 |