From 1e8ec70c95e7373def76d4150daafb6a42a405ca Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Thu, 22 Jan 2009 15:52:19 +0000
Subject: [PATCH] improved error message

---
 src/GFC.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/GFC.hs b/src/GFC.hs
index f856949d2..713f8b7c9 100644
--- a/src/GFC.hs
+++ b/src/GFC.hs
@@ -26,7 +26,7 @@ mainGFC opts fs =
       _ | all (extensionIs ".cf")  fs -> compileCFFiles opts fs
       _ | all (\f -> extensionIs ".gf" f || extensionIs ".gfo" f)  fs -> compileSourceFiles opts fs
       _ | all (extensionIs ".pgf") fs -> unionPGFFiles opts fs
-      _ -> fail $ "Don't know what to do with these input files: " ++ show fs
+      _ -> fail $ "Don't know what to do with these input files: " ++ unwords fs
  where extensionIs ext = (== ext) .  takeExtension
 
 compileSourceFiles :: Options -> [FilePath] -> IOE ()