diff --git a/Data/Function/Tools.hs b/Data/Function/Tools.hs
--- a/Data/Function/Tools.hs
+++ b/Data/Function/Tools.hs
@@ -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
diff --git a/Data/Tuple/Tools.hs b/Data/Tuple/Tools.hs
--- a/Data/Tuple/Tools.hs
+++ b/Data/Tuple/Tools.hs
@@ -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)
diff --git a/yjtools.cabal b/yjtools.cabal
--- a/yjtools.cabal
+++ b/yjtools.cabal
@@ -1,5 +1,5 @@
 Name:		yjtools
-Version:	0.9.17
+Version:	0.9.18
 Cabal-Version:	>= 1.2
 Build-Type:	Simple
 License:	LGPL