cleanup

Ledger/Parse.hs

@@ -588,11 +588,9 @@ lastthisnextthing = do
   return ("",r,p)
 
 
-type TransactionMatcher = Transaction -> Bool
-
 -- | Parse a --display expression which is a simple date predicate, like
 -- "d>[DATE]" or "d<=[DATE]", and return a transaction-matching predicate.
-datedisplayexpr :: Parser TransactionMatcher
+datedisplayexpr :: Parser (Transaction -> Bool)
 datedisplayexpr = do
   char 'd'
   op <- compareop