yjtools 0.7 → 0.8

raw patch · 2 files changed

+5/−1 lines, 2 files

Files

Data/Function/Tools.hs +4/−0
yjtools.cabal +1/−1

Data/Function/Tools.hs view

@@ -1,6 +1,7 @@ module Data.Function.Tools (   const2 , applyWhen+, applyUnless , apply2way ) where @@ -13,6 +14,9 @@  applyWhen :: Bool -> (a -> a) -> a -> a applyWhen b f = if b then f else id++applyUnless :: Bool -> (a -> a) -> a -> a+applyUnless b f = if b then id else f  apply2way :: (a -> b -> c) -> (d -> a) -> (d -> b) -> d -> c apply2way fgen f1 f2 x = fgen (f1 x) (f2 x)

yjtools.cabal view

@@ -1,5 +1,5 @@ Name:		yjtools-Version:	0.7+Version:	0.8 Cabal-Version:	>= 1.2 Build-Type:	Simple License:	LGPL