From f0f4948f5b4e5a8288c9b3384667f7a7a3b32820 Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Thu, 16 Oct 2008 10:33:23 +0000
Subject: [PATCH] Allow giving .gfo files as gfc command-line arguments.

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

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