Commit d8b76af2 authored by John van Groningen's avatar John van Groningen
Browse files

use DclCache type

parent 2e8e2db1
......@@ -54,7 +54,7 @@ coclMainWithVersionCheck currentVersion latestDefVersion latestImpVersion testA
| not (fst (checkVersion (versionCompare expectedVersion observedVersion) stderr))
= set_return_code (-1) world
# (success, world)
= accFiles (compile commandArgs) world
= accFiles (\files0 -> let (r,cache,files)=compile commandArgs empty_cache files0 in (r,files)) world
= set_return_code (if success 0(-1)) world
where
commandArgs
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment