diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-12-19 10:50:17 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-12-19 10:50:17 +0000 |
| commit | 83159c434b539cc73d4a3c629a7d36c676d255e1 (patch) | |
| tree | 52cc228d6ffa63f20a8b24551b9f0429f8b2e4c7 | |
| parent | 27602f4f8291f4d6a8b4b7109caf321d16cb6c99 (diff) | |
more example languages
| -rw-r--r-- | src/GF/Infra/ReadFiles.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/GF/Infra/ReadFiles.hs b/src/GF/Infra/ReadFiles.hs index fa3298158..3f25466e5 100644 --- a/src/GF/Infra/ReadFiles.hs +++ b/src/GF/Infra/ReadFiles.hs @@ -91,12 +91,12 @@ selectFormat opts env (p,f) = do mtgfc <- getModTime $ gfcFile pf mtgf <- getModTime $ gfFile pf let stat = case (rtenv,mtenv,mtgfc,mtgf) of - (_,Just tenv,_,_) | fromComp -> (CSEnv, Just tenv) +-- (_,Just tenv,_,_) | fromComp -> (CSEnv, Just tenv) (_,_,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 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 tenv,_,Nothing) -> (CSEnv,Just tenv) -- source does not exist +-- (_,Just tenv,_,Nothing) -> (CSEnv,Just tenv) -- source does not exist (_,_,_, Nothing) -> (CSRead,Nothing) -- source does not exist _ -> (CSComp,Nothing) return $ (f, (p,stat)) |