diff --git a/Data/TCache/IndexQuery.hs b/Data/TCache/IndexQuery.hs
--- a/Data/TCache/IndexQuery.hs
+++ b/Data/TCache/IndexQuery.hs
@@ -88,7 +88,7 @@
 where
 
 import Data.TCache
-import Data.TCache.DefaultPersistence
+import Data.TCache.Defs
 import Data.List
 import Data.Typeable
 import Control.Concurrent.STM
@@ -138,8 +138,14 @@
        where
        [typeofreg, typeofa]= typeRepArgs $! typeOf map
 
-   defPath= const ""
 
+
+instance (Queriable reg a, Typeable reg, Typeable a) => IResource (Index reg a) where
+  keyResource = key
+  writeResource =defWriteResource
+  readResourceByKey = defReadResourceByKey
+  delResource = defDelResource
+
 getIndex :: (Queriable reg a)
    => ( reg -> a) -> a -> STM(DBRef (Index reg a), Index reg a,[DBRef reg])
 getIndex selector val= do
@@ -162,7 +168,7 @@
    return (rindex, Index index, dbrefs)
 
 selectorIndex
-  :: (Queriable reg a
+  :: (Queriable reg a, IResource reg
       ) =>
      (reg -> a) -> DBRef (Index reg a) -> DBRef reg -> Maybe reg -> STM ()
 
diff --git a/Data/TCache/IndexText.hs b/Data/TCache/IndexText.hs
--- a/Data/TCache/IndexText.hs
+++ b/Data/TCache/IndexText.hs
@@ -62,7 +62,7 @@
 , allElemsOf) where
 import Data.TCache
 import Data.TCache.IndexQuery
-import Data.TCache.DefaultPersistence
+import Data.TCache.Defs
 import qualified Data.Text.Lazy as T
 import Data.Typeable
 import qualified Data.Map as M
@@ -102,11 +102,11 @@
 instance  Indexable IndexText  where
    key (IndexText v _ _ _ _)=    "indextext " ++ v
 
---instance IResource IndexText where
---  keyResource = key
---  writeResource =defWriteResource
---  readResourceByKey = defReadResourceByKey
---  delResource = defDelResource
+instance IResource IndexText where
+  keyResource = key
+  writeResource =defWriteResource
+  readResourceByKey = defReadResourceByKey
+  delResource = defDelResource
 
 readInitDBRef v x= do
   mv <- readDBRef x
diff --git a/TCache.cabal b/TCache.cabal
--- a/TCache.cabal
+++ b/TCache.cabal
@@ -1,5 +1,5 @@
 name: TCache
-version: 0.10.1.0
+version: 0.10.2.0
 cabal-version: >= 1.6
 build-type: Simple
 license: BSD3
@@ -24,7 +24,7 @@
              In this release:
              .
              added setDefaultPersist and modified the signature of setPersist in Data.TCache.DefaultPersistence.
-
+             Fixed issues with ghc 7.6.3