diff options
| author | krasimir <krasimir@chalmers.se> | 2009-01-22 15:52:19 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-01-22 15:52:19 +0000 |
| commit | b3af472c98dc6f0272a62f339a7513f9fd564689 (patch) | |
| tree | 9844e708da3e6e15aa693e74428cc65911e9ed9a /src | |
| parent | 0592994475abeefc132ec36a45fb6dfba5268a3b (diff) | |
improved error message
Diffstat (limited to 'src')
| -rw-r--r-- | src/GFC.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 () |