Mercurial > urweb

comparison 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
comparison
equal deleted inserted replaced
2232:a07b91fa71db 2233:af1585e7d645
1 structure ToyCache = struct 1 structure ToyCache : sig
2 val cache : Cache.cache
3 end = struct
4
2 5
3 (* Mono *) 6 (* Mono *)
4 7
5 open Mono 8 open Mono
6 9
180 newline] 183 newline]
181 end 184 end
182 185
183 val setupGlobal = string "/* No global setup for toy cache. */" 186 val setupGlobal = string "/* No global setup for toy cache. */"
184 187
188
189 (* Bundled up. *)
190
191 val cache = {check = check, store = store, flush = flush,
192 setupQuery = setupQuery, setupGlobal = setupGlobal}
193
185 end 194 end