Permalink
Browse files

Minor clean up

  • Loading branch information...
1 parent 3924eb0 commit 19d186c7ed00c29d0187c054846db4992f263771 @brinchj brinchj committed Mar 28, 2012
Showing with 1 addition and 5 deletions.
  1. +0 −4 src/Data/BTree/Cache/Class.hs
  2. +1 −1 src/Data/BTree/Cache/STM.hs
@@ -8,10 +8,6 @@ module Data.BTree.Cache.Class where
import Control.Concurrent.STM
-data R b = forall a. Inter (IO a) (a -> STM ())
- | Final b
-
-
class Monad m => Cache m p k v | m -> p, p -> k, p -> v, p -> m where
store :: Maybe k -> k -> v -> m ()
fetch :: k -> m (Maybe v)
@@ -322,7 +322,7 @@ liftSTM = CacheSTM . stm
fail = CacheSTM . throwError
-instance ( Show k, S.Serialize k, S.Serialize v, Ord k, Eq k, Eq v
+instance ( S.Serialize k, S.Serialize v, Ord k, Eq k, Eq v
, Hashable k, KV.KVBackend m k v) =>
C.Cache (CacheSTM m k v) (Param m k v) k v where
store = store

0 comments on commit 19d186c

Please sign in to comment.