Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: 442a7a5b7c
Fetching contributors…

Cannot retrieve contributors at this time

22 lines (18 sloc) 0.63 kB
{-# LANGUAGE OverloadedStrings #-}
module Main where
import Bucketeer.Types
import Bucketeer.Manager
import Bucketeer.Persistence
import Control.Concurrent
import Database.Redis
main :: IO ()
main = do conn <- connect ci
tid <- myThreadId
let bm = addBucket bucket tid defaultBucketManager
runRedis conn $ storeBucketManager bm
return ()
where ci = defaultConnectInfo
bucket = Bucket { consumer = Consumer "sample_customer",
feature = Feature "fun stuff",
capacity = 10,
restoreRate = 1 }
Jump to Line
Something went wrong with that request. Please try again.