--- makeAgendum :: SearchState s => (Q.Seq s) -> Int -> s -> CaveContext (Agendum s)
--- makeAgendum previous prevCost newPosition =
--- do predicted <- estimateCost newPosition
--- grid <- asks _grid
--- let newTrail = previous |> newPosition
--- newPositionCost <- entryCost newPosition
--- let incurred = prevCost + newPositionCost
--- return Agendum { _current = newPosition
--- , _trail = newTrail
--- , _cost = incurred + predicted
--- }
---
\ No newline at end of file