diff options
author | Ziv Scully <ziv@mit.edu> | 2015-11-13 01:04:32 -0500 |
---|---|---|
committer | Ziv Scully <ziv@mit.edu> | 2015-11-13 01:04:32 -0500 |
commit | c38edb9bd5c21bcc1d21979d40ec8e9d638b6e9c (patch) | |
tree | f43a6a25889fa0c64c29a133e17755aff063704c /src/toy_cache.sml | |
parent | 06464bd07cb1efbc9df4ca650978c14f4c20390a (diff) |
Fix issue with one-element caches. Locking still WIP.
Diffstat (limited to 'src/toy_cache.sml')
-rw-r--r-- | src/toy_cache.sml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/toy_cache.sml b/src/toy_cache.sml index 377cae01..5c5aa459 100644 --- a/src/toy_cache.sml +++ b/src/toy_cache.sml @@ -24,6 +24,9 @@ fun store (index, keys, value) = fun flush (index, keys) = ffiAppCache' ("flush", index, withTyp optionStringTyp keys) +fun lock (index, keys) = + raise Fail "ToyCache doesn't yet implement lock" + (* Cjr *) @@ -198,7 +201,7 @@ val setupGlobal = string "/* No global setup for toy cache. */" (* Bundled up. *) -val cache = {check = check, store = store, flush = flush, +val cache = {check = check, store = store, flush = flush, lock = lock, setupQuery = setupQuery, setupGlobal = setupGlobal} end |