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.11
+version:                0.0.0.12
 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/BitLength.hs b/src/HaskellWorks/Data/Bits/BitLength.hs
--- a/src/HaskellWorks/Data/Bits/BitLength.hs
+++ b/src/HaskellWorks/Data/Bits/BitLength.hs
@@ -34,81 +34,83 @@
 
 elemBitLength :: (VectorLike v, BitLength (Elem v)) => v -> Count
 elemBitLength v = bitLength (v !!! 0)
+{-# INLINE elemBitLength #-}
 
 elemBitEnd :: (VectorLike v, BitLength (Elem v)) => v -> Position
 elemBitEnd v = endPosition (v !!! 0)
+{-# INLINE elemBitEnd #-}
 
 --------------------------------------------------------------------------------
 -- Instances
 
 instance BitLength Bool where
   bitLength _ = 1
-  {-# INLINABLE bitLength #-}
+  {-# INLINE bitLength #-}
 
 instance BitLength [Bool] where
   bitLength = fromIntegral . P.length
-  {-# INLINABLE bitLength #-}
+  {-# INLINE bitLength #-}
 
 instance BitLength Word8 where
   bitLength _ = 8
-  {-# INLINABLE bitLength #-}
+  {-# INLINE bitLength #-}
 
 instance BitLength Word16 where
   bitLength _ = 16
-  {-# INLINABLE bitLength #-}
+  {-# INLINE bitLength #-}
 
 instance BitLength Word32 where
   bitLength _ = 32
-  {-# INLINABLE bitLength #-}
+  {-# INLINE bitLength #-}
 
 instance BitLength Word64 where
   bitLength _ = 64
-  {-# INLINABLE bitLength #-}
+  {-# INLINE bitLength #-}
 
 instance BitLength [Word8] where
   bitLength v = fromIntegral (P.length v) * bitLength (head v)
-  {-# INLINABLE bitLength #-}
+  {-# INLINE bitLength #-}
 
 instance BitLength [Word16] where
   bitLength v = fromIntegral (P.length v) * bitLength (head v)
-  {-# INLINABLE bitLength #-}
+  {-# INLINE bitLength #-}
 
 instance BitLength [Word32] where
   bitLength v = fromIntegral (P.length v) * bitLength (head v)
-  {-# INLINABLE bitLength #-}
+  {-# INLINE bitLength #-}
 
 instance BitLength [Word64] where
   bitLength v = fromIntegral (P.length v) * bitLength (head v)
-  {-# INLINABLE bitLength #-}
+  {-# INLINE bitLength #-}
 
 instance BitLength (DV.Vector Word8) where
   bitLength v = vLength v * bitLength (v !!! 0)
-  {-# INLINABLE bitLength #-}
+  {-# INLINE bitLength #-}
 
 instance BitLength (DV.Vector Word16) where
   bitLength v = vLength v * bitLength (v !!! 0)
-  {-# INLINABLE bitLength #-}
+  {-# INLINE bitLength #-}
 
 instance BitLength (DV.Vector Word32) where
   bitLength v = vLength v * bitLength (v !!! 0)
-  {-# INLINABLE bitLength #-}
+  {-# INLINE bitLength #-}
 
 instance BitLength (DV.Vector Word64) where
   bitLength v = vLength v * bitLength (v !!! 0)
-  {-# INLINABLE bitLength #-}
+  {-# INLINE bitLength #-}
 
 instance BitLength (DVS.Vector Word8) where
   bitLength v = vLength v * bitLength (v !!! 0)
-  {-# INLINABLE bitLength #-}
+  {-# INLINE bitLength #-}
 
 instance BitLength (DVS.Vector Word16) where
   bitLength v = vLength v * bitLength (v !!! 0)
-  {-# INLINABLE bitLength #-}
+  {-# INLINE bitLength #-}
 
 instance BitLength (DVS.Vector Word32) where
   bitLength v = vLength v * bitLength (v !!! 0)
-  {-# INLINABLE bitLength #-}
+  {-# INLINE bitLength #-}
 
 instance BitLength (DVS.Vector Word64) where
   bitLength v = vLength v * bitLength (v !!! 0)
-  {-# INLINABLE bitLength #-}
+  {-# INLINE bitLength #-}