Database.Redis.Pile

Solution for caching mandatory data with Redis.

In many cases, requires not just pick up or put the data into the cache. As a rule, data are required.

... check the cache ... if the value is missing, run the calculations ... put value to cache ... Tedious

Solution is quite simple - collapse all of these steps in one operation.

Documentation

pile

Arguments

:: ByteString

Prefix for key and tags.

-> ByteString

Key in cache. Key will be stored as prefix:key

-> Maybe (ByteString, ByteString)

Optional expect field.

-> IO ([(ByteString, ByteString)], Maybe Integer, [ByteString])

Computation that returns data and optional TTL and tags. All tags will be stored as prefix:tag.

-> Redis (Maybe [(ByteString, ByteString)])

Stores computation results in Redis as hashSet. Computation fires only if data absent in cache. Of course, to refresh the data, they must first remove from the cache.

Computation controls all that will be stored in the cache except two things: key and prefix for keys and tags. To do this, with the results of computation, it may return optional TTL in seconds (Redis convention) and tags for key. About tags see Database.Redis.Tags.

Instead get all data from cache, optional parameter allows simply make sure that cache holds HashSet with needed field with needed value. If this is so, pile return Nothing.

 conn <- connect defaultConnectInfo
 runRedis conn $ do
    -- do it
    r <- pile "myprefix" "mykey" (Just ("etag", "etag")) $  
        return ([("etag", "etag"), ("val", "myval")], Nothing, Nothing)
    liftIO $ print r
    -- Just [("etag", "etag"), ("val", "myval")]
    
    -- once again
    r <- pile "myprefix" "mykey" (Just ("etag", "etag")) $  
        return ([("etag", "etag"), ("val", "myval")], Nothing, Nothing)
    liftIO $ print r
    -- Nothing
    
    -- and again without expect
    r <- pile "myprefix" "mykey" Nothing $  
        return ([("etag", "etag"), ("val", "myval")], Nothing, Nothing)
    liftIO $ print r
    -- Just [("etag", "etag"), ("val", "myval")]