yjtools 0.9.17 → 0.9.18

raw patch · 3 files changed

+10/−10 lines, 3 files

Files

• Data/Function/Tools.hs +1/−9
• Data/Tuple/Tools.hs +8/−0
• yjtools.cabal +1/−1

@@ -1,7 +1,5 @@ module Data.Function.Tools (-  curry3-, uncurry3-, const2+  const2 , const3 , applyWhen , applyUnless@@ -11,12 +9,6 @@ {- import Control.Arrow ((&&&))  -}--curry3 :: ((a, b, c) -> d) -> a -> b -> c -> d-curry3 f x y z = f (x, y, z)--uncurry3 :: (a -> b -> c -> d) -> (a, b, c) -> d-uncurry3 f (x, y, z) = f x y z  const2 :: a -> b -> c -> a const2 = const . const

@@ -1,6 +1,14 @@ module Data.Tuple.Tools (+	curry3,+	uncurry3, 	rotate ) where++curry3 :: ((a, b, c) -> d) -> a -> b -> c -> d+curry3 f x y z = f (x, y, z)++uncurry3 :: (a -> b -> c -> d) -> (a, b, c) -> d+uncurry3 f (x, y, z) = f x y z  rotate :: Floating a => a -> (a, a) -> (a, a) rotate rad (x, y) = (x * cos rad - y * sin rad, x * sin rad + y * cos rad)

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