New improved iterative search algorithm.

1 files changed, 5 insertions, 1 deletions

diff --git a/src/Data/Wrapper/PSQ.hs b/src/Data/Wrapper/PSQ.hs
index e8fa2d98..2c08011b 100644
--- a/src/Data/Wrapper/PSQ.hs
+++ b/src/Data/Wrapper/PSQ.hs
@@ -15,10 +15,14 @@ type Binding k p = (k,p,())
 pattern (:->) :: k -> p -> Binding k p
 pattern k :-> p <- (k,p,()) where k :-> p = (k,p,())
 
-key :: Binding k v -> k
+key :: Binding k p -> k
 key (k,p,v) = k
 {-# INLINE key #-}
 
+prio :: Binding k p -> p
+prio (k,p,v) = p
+{-# INLINE prio #-}
+
 insert :: (Ord k, Ord p) => k -> p -> PSQ k p -> PSQ k p
 insert k p q = OrdPSQ.insert k p () q
 {-# INLINE insert #-}