-- usage:
-- res <- acquire initDB (\db -> return ())
initDB = Acquire $ do
  db <-
    DB.open "/tmp/rocks"
         DB.defaultOptions {
           DB.createIfMissing = True
         , DB.compression = DB.SnappyCompression
         }
  let
    finalizer = print "ok"
  return (db, finalizer)