From dcbeb8aa09778088b3762e5b128b70bb1052d907 Mon Sep 17 00:00:00 2001 From: Wesley Kerfoot Date: Mon, 27 Aug 2012 23:33:13 -0400 Subject: [PATCH] cleaned up old cache proedure and renamed it to cache categories only --- cacher.rkt | 13 ++----------- 1 file changed, 2 insertions(+), 11 deletions(-) diff --git a/cacher.rkt b/cacher.rkt index 6ee7fdf..a7315ec 100644 --- a/cacher.rkt +++ b/cacher.rkt @@ -37,24 +37,15 @@ [#f #f] [_ (hash-ref obj 'content)])) cached?)) - -;; type is the type of data to cache -;; info is the actual name of the data to be cached -;; get-data is the proc that gets the data from the database - - - -(define (cache info type get-data) - (match type - ['user +(define (cache-category info get-data) (let* ([message (make-hash)] [data (get-data)]) (hash-set! message '_id info) (hash-set! message 'content data) (hash-set! message 'last_updated (current-inexact-milliseconds)) (couchdb-put conn message) - data)])) + data)) (define (cache-user message username page-num get-data) (let ([data (get-data)])