runDDB s f = runReaderT (unDDB f) s


-------------------------------------------------------------------------------
tbl :: CreateTable
tbl = CreateTable "timeseries"
      [ AttributeDefinition "_k" AttrBinary