Use insertFrame in insertFrameLink.

src/Control/Abstract/Heap.hs

@@ -337,7 +337,7 @@ insertFrameLink label linkMap = do
   let newCurrentFrame = currentFrame {
         Heap.links = Map.alter (\val -> val <> Just linkMap) label (Heap.links currentFrame)
       }
-  modify (Heap.Heap . Map.insert frameAddress newCurrentFrame . Heap.unHeap)
+  modify (Heap.insertFrame frameAddress newCurrentFrame)
 
 
 -- | Write a value to the given frame address in the 'Heap'.

src/Data/Abstract/Heap.hs

@@ -11,6 +11,7 @@ module Data.Abstract.Heap
   , deleteSlot
   , initFrame
   , newFrame
+  , insertFrame
   , heapLookup
   , heapLookupAll
   , heapSize