diff --git a/data-extra.cabal b/data-extra.cabal
--- a/data-extra.cabal
+++ b/data-extra.cabal
@@ -1,5 +1,5 @@
 name:                data-extra
-version:             2.5.1
+version:             2.5.2
 synopsis:            Extra utilities for working on Data.* types.
 description:         Extra utilities for working on Data.* types.
 license:             BSD3
diff --git a/src/Data/List/Extra.hs b/src/Data/List/Extra.hs
--- a/src/Data/List/Extra.hs
+++ b/src/Data/List/Extra.hs
@@ -9,7 +9,7 @@
 -- | When a list is non-null, pass it to a function, otherwise use the
 -- default.
 list :: b -> ([a] -> b) -> [a] -> b
-list nil cons = bool cons (const nil) null
+list nil cons = cond (const nil) cons null
 
 -- | Get the union of the given lists.
 unionOf :: (Eq a) => [[a]] -> [a]