TCache 0.10.0.11 → 0.10.0.12

raw patch · 4 files changed

+20/−11 lines, 4 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Data.Persistent.IDynamic: (!>) :: c -> String -> c

- Data.TCache.IndexQuery: class RelationOps field1 field2 res | field1 field2 -> res

- Data.TCache.IndexQuery: class Select selector a res | selector a -> res

Data/Persistent/IDynamic.hs view

@@ -36,8 +36,8 @@ import Data.RefSerialize import Data.HashTable as HT -import Debug.Trace-(!>)= flip trace+--import Debug.Trace+--(!>)= flip trace  
 data IDynamic  =  IDyn  (IORef IDynType) deriving Typeable@@ -120,8 +120,8 @@ serializedEqual (IDyn r) str= unsafePerformIO $ do   t <- readIORef r   case t of-   DRight x -> return $ runW (showp x) == str   !> ("R "++ (show $ unpack $ runW (showp x)))-   DLeft (str', _) -> return $ str== str'       !> ("L "++ (show $ unpack str' ))
+   DRight x -> return $ runW (showp x) == str   -- !> ("R "++ (show $ unpack $ runW (showp x)))+   DLeft (str', _) -> return $ str== str'       -- !> ("L "++ (show $ unpack str' ))
   
 fromIDyn :: (Typeable a , Serialize a)=> IDynamic -> a fromIDyn x= case safeFromIDyn x of

Data/TCache/IndexQuery.hs view

@@ -74,13 +74,17 @@ , FunctionalDependencies, FlexibleInstances, UndecidableInstances , TypeSynonymInstances, IncoherentInstances #-} module Data.TCache.IndexQuery(-index-, RelationOps((.==.),(.<.),(.<=.),(.>=.),(.>.))+  index+, (.==.)+, (.<.)+, (.<=.)+, (.>=.)+, (.>.) , indexOf , recordsWith , (.&&.) , (.||.)-, Select(..))+, select) where  import Data.TCache@@ -213,7 +217,7 @@     (.<.) :: field1 -> field2 ->  STM  res  -- Instance of relations betweeen fields and values--- field .op. valued+-- field .op. value instance (Queriable reg a) => RelationOps (reg -> a) a  [DBRef reg] where     (.==.) field value= do        (_ ,_ ,dbrefs) <- getIndex field value@@ -221,7 +225,7 @@      (.>.)  field value= retrieve field value (>)     (.<.)  field value= retrieve field value (<)-    (.<=.)  field value= retrieve field value (<=)+    (.<=.) field value= retrieve field value (<=)      (.>=.) field value= retrieve field value (>=)

Data/TCache/IndexText.hs view

@@ -54,7 +54,12 @@  -} -module Data.TCache.IndexText(indexText, indexList,  contains, containsElem, allElemsOf) where+module Data.TCache.IndexText(+  indexText+, indexList+, contains+, containsElem+, allElemsOf) where import Data.TCache import Data.TCache.IndexQuery import Data.TCache.Defs

TCache.cabal view

@@ -1,5 +1,5 @@ name: TCache-version: 0.10.0.11+version: 0.10.0.12 cabal-version: >= 1.6 build-type: Simple license: BSD3