msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

improved error message

Browse Source
This commit is contained in:
krasimir
2009-01-22 15:52:19 +00:00
parent b0b0911a20
commit 1e8ec70c95
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GFC.hs
View File

@@ -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 ()