removed spurious type'' parameter for cache-check procedure

cacher.rkt

@@ -94,17 +94,15 @@
   (make-hash (hash-map hsh (λ (a b) (cons a b)))))
 
 ;; 
-(define (check-cache info type get-data updater)
-  (match type
-    ['user (let* [(username (user-cache-params-username info))
-                  (pagenum (user-cache-params-pagenum info))]
+(define (check-cache info get-data updater)
+  (match info
+    [(user-cache-params username pagenum)
            (match (user-cached? username pagenum)
              ['update (let ([message (immuthsh->muthsh (couchdb-get conn username))])
                         (cache-user message username pagenum get-data))]
              [#f (cache-user (make-hash) username pagenum get-data)]
-             [result result]))]))
-     
-       
+             [result result])]))
+
 ;(define (check-user-cache username page-number get-data)
 ;  (match (
 

playlist_server.rkt

@@ -33,12 +33,6 @@
    [("add") add-name]
    [else user-list]))
 
-;(check-cache 
-;       username 
-;       'user 
-;       (λ () (retrieve-videos username)) 
-;       identity)
-  
 ;; Returns all of the videos for a user
 (define (user-list req)
   (response/xexpr
@@ -47,7 +41,6 @@
           (page-n (hash-ref (list->hash (url-query (request-uri req))) 'p))]
       (check-cache (user-cache-params username
                                       (string->number page-n))
-                   'user
                    (λ () (retrieve-videos username (string->number page-n)))
                    identity)))))