diff --git a/Ledger/Parse.hs b/Ledger/Parse.hs
index 2db12bda5..250929118 100644
--- a/Ledger/Parse.hs
+++ b/Ledger/Parse.hs
@@ -425,6 +425,7 @@ postingamount =
         return a
       ) <|> return missingamt
 
+someamount :: GenParser Char st MixedAmount
 someamount = try leftsymbolamount <|> try rightsymbolamount <|> nosymbolamount 
 
 leftsymbolamount :: GenParser Char st MixedAmount
diff --git a/Ledger/Transaction.hs b/Ledger/Transaction.hs
index f00e49dd9..e4abf5c9f 100644
--- a/Ledger/Transaction.hs
+++ b/Ledger/Transaction.hs
@@ -35,4 +35,5 @@ accountNamesFromTransactions ts = nub $ map account ts
 sumTransactions :: [Transaction] -> MixedAmount
 sumTransactions = sum . map amount
 
+nulltxn :: Transaction
 nulltxn = Transaction 0 False (parsedate "1900/1/1") "" "" nullmixedamt RegularPosting