diff options
| author | bjorn <bjorn@bringert.net> | 2008-10-16 10:33:23 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-10-16 10:33:23 +0000 |
| commit | f0f4948f5b4e5a8288c9b3384667f7a7a3b32820 (patch) | |
| tree | 7e9813f20158a11bda9a59abe7650f74abf93cd4 /src | |
| parent | d10c8bd20a23344af7e50c90b3b6b3f1cf075c7e (diff) | |
Allow giving .gfo files as gfc command-line arguments.
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 ef6968da3..8af23d6e1 100644 --- a/src/GFC.hs +++ b/src/GFC.hs @@ -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 |