diff --git a/src/Data/Abstract/Heap.hs b/src/Data/Abstract/Heap.hs
index b602a8b87..740046f55 100644
--- a/src/Data/Abstract/Heap.hs
+++ b/src/Data/Abstract/Heap.hs
@@ -43,7 +43,7 @@ heapSize = Monoidal.size . unHeap
 heapRestrict :: Ord address => Heap address value -> Live address -> Heap address value
 heapRestrict (Heap m) roots = Heap (Monoidal.filterWithKey (\ address _ -> address `liveMember` roots) m)
 
-heapDelete :: Ord address => address -> Heap address cell value -> Heap address cell value
+heapDelete :: Ord address => address -> Heap address value -> Heap address value
 heapDelete addr = Heap . Monoidal.delete addr . unHeap
 
 instance (Ord address, Ord value) => Reducer (address, value) (Heap address value) where