Use mkNode in ApplyMerge.DoublyLinkedList

pgujjula · May 9, 2024 · ea5b906 · ea5b906
1 parent bd2ec52
commit ea5b906
Showing 1 changed file with 2 additions and 9 deletions.
diff --git a/src/ApplyMerge/DoublyLinkedList.hs b/src/ApplyMerge/DoublyLinkedList.hs
@@ -51,15 +51,8 @@ initialFrontier ::
 initialFrontier f as bs = do
   list <- DoublyLinked.empty
   position <- DoublyLinked.cons list (0 :: Int, 0 :: Int)
-  let c = f (NonEmpty.head as) (NonEmpty.head bs)
-      node =
-        Node
-          { position = position,
-            value = c,
-            as = as,
-            bs = bs
-          }
-  pure $ Frontier $ MinPQueue.singleton c node
+  let node = mkNode f position as bs
+  pure $ Frontier $ MinPQueue.singleton node.value node
 
 step ::
   (Ord c) =>