introduce MixedAmount

This commit is contained in:
Simon Michael 2008-10-17 00:57:10 +00:00
parent f865ab1c1c
commit 2d41368b8b

View File

@ -34,6 +34,8 @@ data Amount = Amount {
quantity :: Double
} deriving (Eq)
type MixedAmount = [Amount]
type AccountName = String
data TransactionType = RegularTransaction | VirtualTransaction | BalancedVirtualTransaction