diff options
| author | krasimir <krasimir@chalmers.se> | 2009-05-09 18:00:11 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-05-09 18:00:11 +0000 |
| commit | 37aa3947a52a608cdb4cc0c6b0afdeb0c4bf1824 (patch) | |
| tree | 6a74166848c559d5e46705d8fa4041f64e0f2c90 /src/GF/Compile.hs | |
| parent | 4b8f86897519b8e45c439aee502e3284603ab726 (diff) | |
implement --gfo-dir. before it was recognized but ignored
Diffstat (limited to 'src/GF/Compile.hs')
| -rw-r--r-- | src/GF/Compile.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/GF/Compile.hs b/src/GF/Compile.hs index 67e1d218c..82519aaeb 100644 --- a/src/GF/Compile.hs +++ b/src/GF/Compile.hs @@ -160,7 +160,9 @@ compileOne opts env@(_,srcgr,_) file = do -- for gf source, do full compilation and generate code _ -> do - let gfo = gfoFile (dropExtension file) + let gfo = maybe (gfoFile (dropExtension file)) + (\dir -> dir </> gfoFile (dropExtension (takeFileName file))) + (flag optGFODir opts) b1 <- ioeIO $ doesFileExist file if not b1 then compileOne opts env $ gfo |