From 7072be499e0f9837227555f73834f18463d1bd24 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Sat, 18 Aug 2012 13:57:48 -0400
Subject: Add list of files to new error message

---
 src/main.mlton.sml | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/main.mlton.sml')

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
-- 
cgit v1.2.3