Minor clean up

br0ns · Mar 28, 2012 · 19d186c · 19d186c
1 parent 3924eb0
commit 19d186c
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 5 deletions.
diff --git a/src/Data/BTree/Cache/Class.hs b/src/Data/BTree/Cache/Class.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)

diff --git a/src/Data/BTree/Cache/STM.hs b/src/Data/BTree/Cache/STM.hs
@@ -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