diff options
| author | joe <joe@jerkface.net> | 2017-07-27 08:23:10 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-07-27 08:23:10 -0400 |
| commit | 7a4b181bf39c3e33f0d9a78390fc6237cee783f8 (patch) | |
| tree | 29773b7147c4366d7b1085c2cf6eee33c744e406 /src/Data/Wrapper | |
| parent | 59a12c22732741754fbd3f58c05aa6324aea273a (diff) | |
Bug-fix: Enabled storing multiple peers in a swarm.
Diffstat (limited to 'src/Data/Wrapper')
| -rw-r--r-- | src/Data/Wrapper/PSQ.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Data/Wrapper/PSQ.hs b/src/Data/Wrapper/PSQ.hs index 87648e84..58a6f624 100644 --- a/src/Data/Wrapper/PSQ.hs +++ b/src/Data/Wrapper/PSQ.hs | |||
| @@ -62,7 +62,7 @@ insertWith :: (PSQKey k, Ord p) => (p -> p -> p) -> k -> p -> PSQ k p -> PSQ k p | |||
| 62 | insertWith f k p0 q = snd $ Q.alter f' k q | 62 | insertWith f k p0 q = snd $ Q.alter f' k q |
| 63 | where | 63 | where |
| 64 | f' (Just (p,())) = ((),Just (f p0 p, ())) | 64 | f' (Just (p,())) = ((),Just (f p0 p, ())) |
| 65 | f' Nothing = ((),Nothing) | 65 | f' Nothing = ((),Just (p0,())) |
| 66 | {-# INLINE insertWith #-} | 66 | {-# INLINE insertWith #-} |
| 67 | 67 | ||
| 68 | singleton :: (PSQKey k, Ord p) => k -> p -> PSQ k p | 68 | singleton :: (PSQKey k, Ord p) => k -> p -> PSQ k p |