From 2be598b4763b4fec0bcbd4336b8915aec2f02e7d Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Wed, 29 Nov 2023 10:59:16 -0700
Subject: [PATCH] drop hSize in favour of length

---
 src/Data/Heap.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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