let
find t ~f =
Option
.map (
Doubly_linked
.find t.queue ~f:(
fun
kv
->
f kv.value))
~f:
Key_value
.value