1 files changed, 4 insertions, 1 deletions

diff --git a/lib/Postdelay/PrioMap.hs b/lib/Postdelay/PrioMap.hs
index 2b75984..97705ba 100644
--- a/lib/Postdelay/PrioMap.hs
+++ b/lib/Postdelay/PrioMap.hs
@@ -2,7 +2,7 @@
 
 module Postdelay.PrioMap
   ( PrioMap, prioMap, prioMap', _Endo
-  , prio, prios
+  , prio, prio', prios
   , squash
 
   , PrioEndo, prioEndo, prioEndo'
@@ -68,3 +68,6 @@ prioEndo = prioMap
 
 prioEndo' :: Enum p => p -> Iso' (PrioEndo p a) (Endo a)
 prioEndo' = prioMap'
+
+prio' :: Enum p => p -> Setter' (PrioEndo p a) a
+prio' p = sets $ \(Endo -> mod) -> mappend $ review (prioMap' p) mod