diff --git a/library/PrimitiveExtras/SparseSmallArray.hs b/library/PrimitiveExtras/SparseSmallArray.hs
--- a/library/PrimitiveExtras/SparseSmallArray.hs
+++ b/library/PrimitiveExtras/SparseSmallArray.hs
@@ -14,10 +14,11 @@
   elementsUnfold,
   elementsUnfoldM,
   onElementAtFocus,
+  null,
 )
 where
 
-import PrimitiveExtras.Prelude hiding (lookup, empty, insert)
+import PrimitiveExtras.Prelude hiding (lookup, empty, insert, null)
 import PrimitiveExtras.Types
 import qualified PrimitiveExtras.Prelude as Prelude
 import qualified PrimitiveExtras.Bitmap as Bitmap
@@ -171,3 +172,7 @@
       Focus.Leave -> ssa
       Focus.Set newSsa -> newSsa
       Focus.Remove -> empty
+
+{-# INLINE null #-}
+null :: SparseSmallArray a -> Bool
+null (SparseSmallArray bm _) = Bitmap.null bm
diff --git a/primitive-extras.cabal b/primitive-extras.cabal
--- a/primitive-extras.cabal
+++ b/primitive-extras.cabal
@@ -1,7 +1,7 @@
 name:
   primitive-extras
 version:
-  0.5.0.2
+  0.5.1
 category:
   Primitive
 synopsis: