More work factoring out Sqlcache back end.

1 files changed, 10 insertions, 1 deletions

diff --git a/src/toy_cache.sml b/src/toy_cache.sml
index 23dfe4fe..126768b6 100644
--- a/src/toy_cache.sml
+++ b/src/toy_cache.sml
@@ -1,4 +1,7 @@
-structure ToyCache = struct
+structure ToyCache : sig
+    val cache : Cache.cache
+end = struct
+
 
 (* Mono *)
 
@@ -182,4 +185,10 @@ fun setupQuery {index, params} =
 
 val setupGlobal = string "/* No global setup for toy cache. */"
 
+
+(* Bundled up. *)
+
+val cache = {check = check, store = store, flush = flush,
+             setupQuery = setupQuery, setupGlobal = setupGlobal}
+
 end