diff --git a/hw-bits.cabal b/hw-bits.cabal
--- a/hw-bits.cabal
+++ b/hw-bits.cabal
@@ -1,5 +1,5 @@
 name:                   hw-bits
-version:                0.0.0.9
+version:                0.0.0.10
 synopsis:               Conduits for tokenizing streams.
 description:            Please see README.md
 homepage:               http://github.com/haskell-works/hw-bits#readme
diff --git a/src/HaskellWorks/Data/Bits/AllExcess/AllExcess0.hs b/src/HaskellWorks/Data/Bits/AllExcess/AllExcess0.hs
--- a/src/HaskellWorks/Data/Bits/AllExcess/AllExcess0.hs
+++ b/src/HaskellWorks/Data/Bits/AllExcess/AllExcess0.hs
@@ -11,6 +11,13 @@
 class AllExcess0 a where
   allExcess0 :: a -> Int
 
+instance AllExcess0 [Bool] where
+  allExcess0 = go 0
+    where go n (False:ys) = go (n + 1) ys
+          go n (True :ys) = go (n - 1) ys
+          go n _          = n
+  {-# INLINE allExcess0 #-}
+
 instance AllExcess0 Word8 where
   allExcess0 w = fromIntegral (popCount0 w) - fromIntegral (popCount1 w)
   {-# INLINE allExcess0 #-}
diff --git a/src/HaskellWorks/Data/Bits/AllExcess/AllExcess1.hs b/src/HaskellWorks/Data/Bits/AllExcess/AllExcess1.hs
--- a/src/HaskellWorks/Data/Bits/AllExcess/AllExcess1.hs
+++ b/src/HaskellWorks/Data/Bits/AllExcess/AllExcess1.hs
@@ -11,6 +11,13 @@
 class AllExcess1 a where
   allExcess1 :: a -> Int
 
+instance AllExcess1 [Bool] where
+  allExcess1 = go 0
+    where go n (True :ys) = go (n + 1) ys
+          go n (False:ys) = go (n - 1) ys
+          go n _          = n
+  {-# INLINE allExcess1 #-}
+
 instance AllExcess1 Word8 where
   allExcess1 w = fromIntegral (popCount1 w) - fromIntegral (popCount0 w)
   {-# INLINE allExcess1 #-}