{-# LANGUAGE   FlexibleInstances, UndecidableInstances #-}
module Data.TCache.FilePersistence where


import Data.TCache.IResource


-- | Read, Show,  instances are implicit instances of Serializable
instance (Show a, Read a) => Serializable a where
    serialize= show
    deserialize= read




-- | Serializable, Indexable instances are implicit instances of IResource
instance  (Serializable a, Indexable a) => IResource a where
        keyResource =key
        readResourceByKey = defaultReadResourceByKey 
        writeResource = defaultWriteResource
    	delResource = defaultDelResource