nullamt and nullmixedamt

Ledger/Account.hs

@@ -19,5 +19,5 @@ instance Show Account where
 instance Eq Account where
     (==) (Account n1 t1 b1) (Account n2 t2 b2) = n1 == n2 && t1 == t2 && b1 == b2
 
-nullacct = Account "" [] nullamt
+nullacct = Account "" [] nullmixedamt
 

Ledger/Amount.hs

@@ -137,9 +137,14 @@ normaliseMixedAmount (Mixed as) = Mixed $ map sum $ grouped
       symbols = sort $ nub $ map (symbol . commodity) as
       hassymbol s a = s == (symbol $ commodity a)
 
+
+-- | The empty simple amount.
+nullamt :: Amount
+nullamt = Amount unknown 0 Nothing
+
 -- | The empty mixed amount.
-nullamt :: MixedAmount
+nullmixedamt :: MixedAmount
-nullamt = Mixed []
+nullmixedamt = Mixed []
 
 -- | A temporary value for parsed transactions which had no amount specified.
 missingamt :: MixedAmount

Ledger/RawTransaction.hs

@@ -15,7 +15,7 @@ import Ledger.AccountName
 
 instance Show RawTransaction where show = showRawTransaction
 
-nullrawtxn = RawTransaction "" nullamt "" RegularTransaction
+nullrawtxn = RawTransaction "" nullmixedamt "" RegularTransaction
 
 showRawTransaction :: RawTransaction -> String
 showRawTransaction (RawTransaction a amt _ ttype) = 

Ledger/Transaction.hs

@@ -32,4 +32,4 @@ accountNamesFromTransactions ts = nub $ map account ts
 sumTransactions :: [Transaction] -> MixedAmount
 sumTransactions = sum . map amount
 
-nulltxn = Transaction 0  (parsedate "1900/1/1") "" "" nullamt RegularTransaction
+nulltxn = Transaction 0  (parsedate "1900/1/1") "" "" nullmixedamt RegularTransaction

RegisterCommand.hs

@@ -26,7 +26,7 @@ DDDDDDDDDD dddddddddddddddddddd aaaaaaaaaaaaaaaaaaaaaa  AAAAAAAAAAA AAAAAAAAAAAA
 @
 -}
 showRegisterReport :: [Opt] -> [String] -> Ledger -> String
-showRegisterReport opts args l = showtxns ts nulltxn nullamt
+showRegisterReport opts args l = showtxns ts nulltxn nullmixedamt
     where
       ts = filter matchtxn $ ledgerTransactions l
       matchtxn Transaction{account=a} = matchpats apats a