From e8a0d42906a6ba2ced7620aaf6c807807733337b Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 26 Nov 2008 22:15:22 +0000
Subject: [PATCH] cleanup

---
 Ledger/Parse.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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