diff --git a/focus.cabal b/focus.cabal
--- a/focus.cabal
+++ b/focus.cabal
@@ -1,7 +1,7 @@
 name:
   focus
 version:
-  0.1.0
+  0.1.1
 synopsis:
   A general abstraction for manipulating elements of container data structures
 description:
diff --git a/library/Focus/Prelude.hs b/library/Focus/Prelude.hs
--- a/library/Focus/Prelude.hs
+++ b/library/Focus/Prelude.hs
@@ -4,7 +4,6 @@
   module Exports,
   bug,
   bottom,
-  bool,
 )
 where
 
@@ -32,7 +31,7 @@
 import Data.Fixed as Exports
 import Data.Ix as Exports
 import Data.Data as Exports
-import Data.Bool as Exports hiding (bool)
+import Data.Bool as Exports
 import Text.Read as Exports (readMaybe, readEither)
 import Control.Exception as Exports hiding (tryJust, try, assert)
 import System.Mem as Exports
@@ -65,20 +64,3 @@
     msg = "A \"focus\" package bug: " :: String
 
 bottom = [e| $bug "Bottom evaluated" |]
-
-bool :: a -> a -> Bool -> a
-bool f _ False = f
-bool _ t True  = t
-
-
-#if __GLASGOW_HASKELL__ < 708
-
-instance Traversable ((,) a) where
-  traverse f (x, y) = (,) x <$> f y
-
-instance Foldable ((,) a) where
-  foldMap f (_, y) = f y
-  foldr f z (_, y) = f y z
-
-#endif
-