diff --git a/src/Data/Heap.hs b/src/Data/Heap.hs
index 44bcae3..e66915c 100644
--- a/src/Data/Heap.hs
+++ b/src/Data/Heap.hs
@@ -48,6 +48,8 @@ instance Foldable Heap where
 
     null (Heap _ m) = M.size m == 0
 
+    length (Heap _ m) = M.size m
+
 instance Traversable Heap where
     traverse t (Heap u m) = Heap u <$> (traverse t m)
 
@@ -77,9 +79,6 @@ hLookupUnsafe k (Heap _ m) = case m !? k of
 addresses :: Heap a -> [Addr]
 addresses (Heap _ m) = M.keys m
 
-hSize :: Heap a -> Int
-hSize (Heap _ m) = M.size m
-
 -- | Intended for use with view patterns
 hView :: Heap a -> Addr -> Maybe a
 hView = flip hLookup