diff options
| author | Gregor Kleen <aethoago@141.li> | 2017-02-20 20:53:15 +0100 |
|---|---|---|
| committer | Gregor Kleen <aethoago@141.li> | 2017-02-20 20:53:15 +0100 |
| commit | 0769cc7c46f4aeb3dd1416a62c0d68648ae5f782 (patch) | |
| tree | f13312b30c3ccc5c6c97a28dfca5d3225408ee5b /lib/Postdelay/PrioMap.hs | |
| parent | ee87f8d3ecc2d23584e378bfd3160ba6f49ebf4a (diff) | |
| download | postdelay-0769cc7c46f4aeb3dd1416a62c0d68648ae5f782.tar postdelay-0769cc7c46f4aeb3dd1416a62c0d68648ae5f782.tar.gz postdelay-0769cc7c46f4aeb3dd1416a62c0d68648ae5f782.tar.bz2 postdelay-0769cc7c46f4aeb3dd1416a62c0d68648ae5f782.tar.xz postdelay-0769cc7c46f4aeb3dd1416a62c0d68648ae5f782.zip | |
Minor cleanup
Diffstat (limited to 'lib/Postdelay/PrioMap.hs')
| -rw-r--r-- | lib/Postdelay/PrioMap.hs | 5 |
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 @@ | |||
| 2 | 2 | ||
| 3 | module Postdelay.PrioMap | 3 | module Postdelay.PrioMap |
| 4 | ( PrioMap, prioMap, prioMap', _Endo | 4 | ( PrioMap, prioMap, prioMap', _Endo |
| 5 | , prio, prios | 5 | , prio, prio', prios |
| 6 | , squash | 6 | , squash |
| 7 | 7 | ||
| 8 | , PrioEndo, prioEndo, prioEndo' | 8 | , PrioEndo, prioEndo, prioEndo' |
| @@ -68,3 +68,6 @@ prioEndo = prioMap | |||
| 68 | 68 | ||
| 69 | prioEndo' :: Enum p => p -> Iso' (PrioEndo p a) (Endo a) | 69 | prioEndo' :: Enum p => p -> Iso' (PrioEndo p a) (Endo a) |
| 70 | prioEndo' = prioMap' | 70 | prioEndo' = prioMap' |
| 71 | |||
| 72 | prio' :: Enum p => p -> Setter' (PrioEndo p a) a | ||
| 73 | prio' p = sets $ \(Endo -> mod) -> mappend $ review (prioMap' p) mod | ||