TCache 0.10.0.8 → 0.10.0.9
raw patch · 4 files changed
+15/−5 lines, 4 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
- Data/TCache.hs +4/−2
- Data/TCache/IndexText.hs +1/−0
- Data/TCache/Memoization.hs +4/−1
- TCache.cabal +6/−2
Data/TCache.hs view
@@ -811,8 +811,10 @@ -> IO ThreadId -- ^ Identifier of the thread created clearSyncCacheProc time check sizeObjects= forkIO clear where- clear =handle ( \ (e :: SomeException)-> hPutStr stderr (show e) >> clear ) $ do- clearSyncCache check sizeObjects --`debug` "CLEAR"+ clear = do+ threadDelay $ time * 1000000+ handle ( \ (e :: SomeException)-> hPutStr stderr (show e) >> clear ) $ do+ clearSyncCache check sizeObjects -- !> "CLEAR" clear criticalSection mv f= bracket
Data/TCache/IndexText.hs view
@@ -200,6 +200,7 @@ let wordsr = catMaybes $ map (\n -> M.lookup n mmapIntString) $ catMaybes mns return $ map getDBRef wordsr +-- | return all the values of a given field (if it has been indexed with 'index') allElemsOf :: (IResource a, Typeable a, Typeable b) => (a -> b) -> STM [T.Text] allElemsOf sel = do let [t1, t2]= typeRepArgs $! typeOf sel
Data/TCache/Memoization.hs view
@@ -49,13 +49,16 @@ execute:: m a -> a instance Executable IO where- execute= unsafePerformIO+ execute m = unsafePerformIO $ f1 m ""+ where+ f1 m x= m instance Executable Identity where execute (Identity x)= x instance MonadIO Identity where liftIO f= Identity $! unsafePerformIO $! f+ cachedKeyPrefix = "cached"
TCache.cabal view
@@ -1,5 +1,5 @@ name: TCache-version: 0.10.0.8+version: 0.10.0.9 cabal-version: >= 1.6 build-type: Simple license: BSD3@@ -18,8 +18,12 @@ 0.10.0.8 subversion add cachedByKeySTM . See "Data.TCache" for details+ .+ In this release:+ .+ fixed an error in clearSyncChacheProc and SynWrite Asyncronous that checked the cache continuously - This release fixes some bugs in the module IndexText+ category: Data, Database