module Penny.Lincoln.Bits.Amount where import Penny.Lincoln.Bits.Qty ( Qty ) import Penny.Lincoln.Bits.Commodity ( Commodity ) data Amount = Amount { qty :: Qty , commodity :: Commodity } deriving (Eq, Show, Ord)