From 4475f313c4c56655f2a56b041e49c87556c1a9c6 Mon Sep 17 00:00:00 2001
From: Bryan O'Sullivan <bos@serpentine.com>
Date: Mon, 30 Apr 2007 23:07:37 +0000
Subject: [PATCH] Reduce verbosity.

--HG--
extra : convert_revision : 06b22ff40f49bb6251adae2c8beed8a757ae84e0
---
 System/FilePath/Find.hs | 65 +++++++----------------------------------
 1 file changed, 11 insertions(+), 54 deletions(-)

diff --git a/System/FilePath/Find.hs b/System/FilePath/Find.hs
index 623d619..670c794 100644
--- a/System/FilePath/Find.hs
+++ b/System/FilePath/Find.hs
@@ -286,89 +286,46 @@ liftOp :: Monad m => (a -> b -> c) -> m a -> b -> m c
 
 liftOp f a b = a >>= \a' -> return (f a' b)
 
-(~~?) :: FindClause FilePath
-      -> GlobPattern
-      -> FindClause Bool
-
+(~~?) :: FindClause FilePath -> GlobPattern -> FindClause Bool
 (~~?) = liftOp (~~)
-
 infix 4 ~~?
 
-(/~?) :: FindClause FilePath
-       -> GlobPattern
-       -> FindClause Bool
+(/~?) :: FindClause FilePath -> GlobPattern -> FindClause Bool
 (/~?) = liftOp (/~)
-      
 infix 4 /~?
 
-(==?) :: Eq a => FindClause a
-      -> a
-      -> FindClause Bool
-
+(==?) :: Eq a => FindClause a -> a -> FindClause Bool
 (==?) = liftOp (==)
-
 infix 4 ==?
 
-(/=?) :: Eq a => FindClause a
-      -> a
-      -> FindClause Bool
-
+(/=?) :: Eq a => FindClause a -> a -> FindClause Bool
 (/=?) = liftOp (/=)
-
 infix 4 /=?
 
-(>?) :: Ord a => FindClause a
-     -> a
-     -> FindClause Bool
-
+(>?) :: Ord a => FindClause a -> a -> FindClause Bool
 (>?) = liftOp (>)
-
 infix 4 >?
 
-(<?) :: Ord a => FindClause a
-     -> a
-     -> FindClause Bool
-
+(<?) :: Ord a => FindClause a -> a -> FindClause Bool
 (<?) = liftOp (<)
-
 infix 4 <?
 
-(.&.?) :: Bits a => FindClause a
-       -> a
-       -> FindClause a
-
+(.&.?) :: Bits a => FindClause a -> a -> FindClause a
 (.&.?) = liftOp (.&.)
-
 infixl 7 .&.?
 
-(>=?) :: Ord a => FindClause a
-      -> a
-      -> FindClause Bool
-
+(>=?) :: Ord a => FindClause a -> a -> FindClause Bool
 (>=?) = liftOp (>=)
-
 infix 4 >=?
 
-(<=?) :: Ord a => FindClause a
-      -> a
-      -> FindClause Bool
-
+(<=?) :: Ord a => FindClause a -> a -> FindClause Bool
 (<=?) = liftOp (<=)
-
 infix 4 <=?
 
-(&&?) :: FindClause Bool
-      -> FindClause Bool
-      -> FindClause Bool
-
+(&&?) :: FindClause Bool -> FindClause Bool -> FindClause Bool
 (&&?) = liftM2 (&&)
-
 infixr 3 &&?
 
-(||?) :: FindClause Bool
-      -> FindClause Bool
-      -> FindClause Bool
-
+(||?) :: FindClause Bool -> FindClause Bool -> FindClause Bool
 (||?) = liftM2 (||)
-
 infixr 2 ||?