Mercurial > urweb

diff src/toy_cache.sml @ 2233:af1585e7d645

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
More work factoring out Sqlcache back end.
author Ziv Scully <ziv@mit.edu>
date Wed, 06 May 2015 23:11:30 -0400
parents 67e801cf42c6
children 6951a645ccdf
line wrap: on
line diff
--- a/src/toy_cache.sml	Wed May 06 14:51:09 2015 -0400
+++ b/src/toy_cache.sml	Wed May 06 23:11:30 2015 -0400
@@ -1,4 +1,7 @@
-structure ToyCache = struct
+structure ToyCache : sig
+    val cache : Cache.cache
+end = struct
+
 
 (* Mono *)
 
@@ -182,4 +185,10 @@
 
 val setupGlobal = string "/* No global setup for toy cache. */"
 
+
+(* Bundled up. *)
+
+val cache = {check = check, store = store, flush = flush,
+             setupQuery = setupQuery, setupGlobal = setupGlobal}
+
 end