diff options
Diffstat (limited to 'src/GF/Compile.hs')
| -rw-r--r-- | src/GF/Compile.hs | 4 |
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 |