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

Reduce verbosity. 

--HG--
extra : convert_revision : 06b22ff40f49bb6251adae2c8beed8a757ae84e0
This commit is contained in:
Bryan O'Sullivan 2007-04-30 23:07:37 +00:00
parent 5722b80140
commit 4475f313c4
1 changed files with 11 additions and 54 deletions
Show Stats 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)
(~~?) :: 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 ||?