diff --git a/Data/Bool/Tools.hs b/Data/Bool/Tools.hs
new file mode 100644
--- /dev/null
+++ b/Data/Bool/Tools.hs
@@ -0,0 +1,10 @@
+module Data.Bool.Tools (
+  (&&&),
+  (|||)
+) where
+
+import Data.Function.Tools (apply2way)
+
+(&&&), (|||) :: (a -> Bool) -> (a -> Bool) -> a -> Bool
+(&&&) = apply2way (&&)
+(|||) = apply2way (||)
diff --git a/yjtools.cabal b/yjtools.cabal
--- a/yjtools.cabal
+++ b/yjtools.cabal
@@ -1,5 +1,5 @@
 Name:		yjtools
-Version:	0.8
+Version:	0.9
 Cabal-Version:	>= 1.2
 Build-Type:	Simple
 License:	LGPL
@@ -19,4 +19,4 @@
 
 Library
   Build-Depends:	base, process, directory, old-time, regexpr
-  Exposed-Modules:	Control.Monad.Tools, Control.Applicative.Tools, Data.List.Tools, Data.Function.Tools YJTools.Tribial System.Directory.Tools
+  Exposed-Modules:	Control.Monad.Tools, Control.Applicative.Tools, Data.List.Tools, Data.Function.Tools YJTools.Tribial System.Directory.Tools, Data.Bool.Tools