Skip to content

Instantly share code, notes, and snippets.

/gist:780616

Created January 15, 2011 01:58
Show Gist options
  • Save anonymous/780616 to your computer and use it in GitHub Desktop.
Save anonymous/780616 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1
-- | Get this amount's commodity and any commodities referenced in its price.
amountCommodities :: Amount -> [Commodity]
amountCommodities Amount{commodity=c,price=p} =
case p of Nothing -> [c]
Just (UnitPrice ma) -> c:(concatMap amountCommodities $ amounts ma)
Just (TotalPrice ma) -> c:(concatMap amountCommodities $ amounts ma)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment