--set size of pie and description
pitem :: Item -> PieItem
pitem item = pitem_value .~ fromIntegral(item^.price)
    $ pitem_label .~ item^.description
    $ pitem_offset .~ 0
    $ def
pitem :: Item -> PieItem
pitem item = pitem_value .~ fromIntegral(item^.price)
    $ pitem_label .~ item^.description
    $ pitem_offset .~ 0
    $ def
pitem item = pitem_value .~ fromIntegral(item^.price)
    $ pitem_label .~ item^.description
    $ pitem_offset .~ 0
    $ def