PSQueue 1.0 → 1.1
raw patch · 2 files changed
+8/−5 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
- Data.PSQueue: instance (Show a) => Show (Sequ a)
+ Data.PSQueue: instance Show a => Show (Sequ a)
Files
- Data/PSQueue.hs +7/−4
- PSQueue.cabal +1/−1
Data/PSQueue.hs view
@@ -234,10 +234,13 @@ case f Nothing of Nothing -> empty Just p -> singleton k p- Single k' p ->- case f (if k==k' then Just p else Nothing) of- Nothing -> empty- Just p' -> singleton k p'+ Single k' p + | k == k' -> case f (Just p) of+ Nothing -> empty+ Just p' -> singleton k' p'+ | otherwise -> case f Nothing of+ Nothing -> singleton k' p+ Just p' -> insert k p' $ singleton k' p tl `Play` tr | k <= maxKey tl -> alter f k tl `unsafePlay` tr | otherwise -> tl `unsafePlay` alter f k tr
PSQueue.cabal view
@@ -1,5 +1,5 @@ Name: PSQueue-Version: 1.0+Version: 1.1 License: BSD3 License-file: LICENSE Author: Ralf Hinze