From 30ebf7fd5948915cf2d67feb67ef6585d7761a4e Mon Sep 17 00:00:00 2001 From: krasimir Date: Mon, 11 May 2009 06:50:50 +0000 Subject: -gfo-files is consulted not only when .gfo files are created but also when we search for them --- src/GF/Compile.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'src/GF/Compile.hs') 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 -- cgit v1.2.3