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