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

Allow giving .gfo files as gfc command-line arguments.

Browse Source
This commit is contained in:
bjorn
2008-10-16 10:33:23 +00:00
parent d10c8bd20a
commit f0f4948f5b
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

@@ -24,7 +24,7 @@ mainGFC opts fs =
case () of
_ | null fs -> fail $ "No input files."
_ | all (extensionIs ".cf") fs -> compileCFFiles opts fs
_ | all (extensionIs ".gf") fs -> compileSourceFiles 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
where extensionIs ext = (== ext) . takeExtension