def list(cls):
rows = dblist(prices_table)
yield rows
yield Just ( rows >> (lambda pl: [Price(r) for r in pl]) )
def list(cls):
rows = dblist(offers_table)
yield rows
yield Just ( rows >> (lambda ol: [Offer(r) for r in ol]) )