rhi/filemanip
1
0
Fork 0
Code Issues Pull requests Releases Activity

Reduce verbosity.

Browse source
This commit is contained in:
Bryan O'Sullivan 2007-04-30 23:07:37 +00:00
parent daa8b91190
commit 3873c897cb
1 changed files with 11 additions and 54 deletions
Download patch file Download diff file Expand all files Collapse all files

65
System/FilePath/Find.hs
View file

@ -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) liftOp f a b = a >>= \a' -> return (f a' b)
(~~?) :: FindClause FilePath (~~?) :: FindClause FilePath -> GlobPattern -> FindClause Bool
-> GlobPattern
-> FindClause Bool
(~~?) = liftOp (~~) (~~?) = liftOp (~~)
infix 4 ~~? infix 4 ~~?
(/~?) :: FindClause FilePath (/~?) :: FindClause FilePath -> GlobPattern -> FindClause Bool
-> GlobPattern
-> FindClause Bool
(/~?) = liftOp (/~) (/~?) = liftOp (/~)
infix 4 /~? infix 4 /~?
(==?) :: Eq a => FindClause a (==?) :: Eq a => FindClause a -> a -> FindClause Bool
-> a
-> FindClause Bool
(==?) = liftOp (==) (==?) = liftOp (==)
infix 4 ==? infix 4 ==?
(/=?) :: Eq a => FindClause a (/=?) :: Eq a => FindClause a -> a -> FindClause Bool
-> a
-> FindClause Bool
(/=?) = liftOp (/=) (/=?) = liftOp (/=)
infix 4 /=? infix 4 /=?
(>?) :: Ord a => FindClause a (>?) :: Ord a => FindClause a -> a -> FindClause Bool
-> a
-> FindClause Bool
(>?) = liftOp (>) (>?) = liftOp (>)
infix 4 >? infix 4 >?
(<?) :: Ord a => FindClause a (<?) :: Ord a => FindClause a -> a -> FindClause Bool
-> a
-> FindClause Bool
(<?) = liftOp (<) (<?) = liftOp (<)
infix 4 <? infix 4 <?
(.&.?) :: Bits a => FindClause a (.&.?) :: Bits a => FindClause a -> a -> FindClause a
-> a
-> FindClause a
(.&.?) = liftOp (.&.) (.&.?) = liftOp (.&.)
infixl 7 .&.? infixl 7 .&.?
(>=?) :: Ord a => FindClause a (>=?) :: Ord a => FindClause a -> a -> FindClause Bool
-> a
-> FindClause Bool
(>=?) = liftOp (>=) (>=?) = liftOp (>=)
infix 4 >=? infix 4 >=?
(<=?) :: Ord a => FindClause a (<=?) :: Ord a => FindClause a -> a -> FindClause Bool
-> a
-> FindClause Bool
(<=?) = liftOp (<=) (<=?) = liftOp (<=)
infix 4 <=? infix 4 <=?
(&&?) :: FindClause Bool (&&?) :: FindClause Bool -> FindClause Bool -> FindClause Bool
-> FindClause Bool
-> FindClause Bool
(&&?) = liftM2 (&&) (&&?) = liftM2 (&&)
infixr 3 &&? infixr 3 &&?
(||?) :: FindClause Bool (||?) :: FindClause Bool -> FindClause Bool -> FindClause Bool
-> FindClause Bool
-> FindClause Bool
(||?) = liftM2 (||) (||?) = liftM2 (||)
infixr 2 ||? infixr 2 ||?