-gfo-files is consulted not only when .gfo files are created but also when we search for them

1 files changed, 1 insertions, 3 deletions

diff --git a/src/GF/Compile.hs b/src/GF/Compile.hs
index 82519aaeb..4e16e9121 100644
--- a/src/GF/Compile.hs
+++ b/src/GF/Compile.hs
@@ -160,9 +160,7 @@ compileOne opts env@(_,srcgr,_) file = do
     -- for gf source, do full compilation and generate code
     _ -> do
 
-      let gfo = maybe (gfoFile (dropExtension file))
-                      (\dir -> dir </> gfoFile (dropExtension (takeFileName file)))
-                      (flag optGFODir opts)
+      let gfo = gf2gfo opts file
       b1 <- ioeIO $ doesFileExist file
       if not b1
         then compileOne opts env $ gfo