msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

subex elim in gfr generation

Browse Source
This commit is contained in:
aarne
2008-01-01 23:31:12 +00:00
parent e7611aefb4
commit b3da2791fd
2 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/GF/Infra/ReadFiles.hs
View File

@@ -95,7 +95,12 @@ selectFormat opts env (p,f) = do
(_,_,Just tgfc,_) | fromComp -> (CSRead,Just tgfc)
-- (Just tenv,_,_,Just tgf) | laterModTime tenv tgf -> (CSEnvR,Just tenv)
-- (_,Just tenv,_,Just tgf) | laterModTime tenv tgf -> (CSEnv, Just tenv)
(_,_,Just tgfc,Just tgf) | laterModTime tgfc tgf -> (CSRead,Just tgfc)
(_,_,Just tgfc,Just tgf) | laterModTime tgfc tgf ->
case mtenv of
-- Just tenv | laterModTime tenv tgfc -> (CSEnv,Just tenv)
_ -> (CSRead,Just tgfc)
-- (_,Just tenv,_,Nothing) -> (CSEnv,Just tenv) -- source does not exist
(_,_,_, Nothing) -> (CSRead,Nothing) -- source does not exist
_ -> (CSComp,Nothing)