diff --git a/Ledger/Parse.hs b/Ledger/Parse.hs
index ccf71c002..776f9dd2a 100644
--- a/Ledger/Parse.hs
+++ b/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