diff options
| author | joe <joe@jerkface.net> | 2017-07-19 18:54:43 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-07-19 18:54:43 -0400 |
| commit | 28ca61179a618a294702912505c70bac49cb98a0 (patch) | |
| tree | 7340678ba139c54264f8d887f0a8773463e8c1b0 /src/Network/DHT | |
| parent | f626282407525533ee4f46196f8fbffcd41079db (diff) | |
Made Wrapper.PSQ a little more flexible.
Diffstat (limited to 'src/Network/DHT')
| -rw-r--r-- | src/Network/DHT/Routing.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Network/DHT/Routing.hs b/src/Network/DHT/Routing.hs index 273cf9dc..d380c6f2 100644 --- a/src/Network/DHT/Routing.hs +++ b/src/Network/DHT/Routing.hs | |||
| @@ -248,10 +248,10 @@ instance (Eq ip, Ord (NodeId), Serialize (NodeId), Serialize ip, Serialize u) => | |||
| 248 | 248 | ||
| 249 | #endif | 249 | #endif |
| 250 | 250 | ||
| 251 | psqFromPairList :: (Ord p, Ord k) => [(k, p)] -> OrdPSQ k p () | 251 | psqFromPairList :: (Ord p, Ord k) => [(k, p)] -> PSQ k p |
| 252 | psqFromPairList xs = PSQ.fromList $ map (\(a,b) -> a :-> b) xs | 252 | psqFromPairList xs = PSQ.fromList $ map (\(a,b) -> a :-> b) xs |
| 253 | 253 | ||
| 254 | psqToPairList :: OrdPSQ t t1 () -> [(t, t1)] | 254 | psqToPairList :: PSQ t t1 -> [(t, t1)] |
| 255 | psqToPairList psq = map (\(a :-> b) -> (a,b)) $ PSQ.toList psq | 255 | psqToPairList psq = map (\(a :-> b) -> (a,b)) $ PSQ.toList psq |
| 256 | 256 | ||
| 257 | -- | Update interval, in seconds. | 257 | -- | Update interval, in seconds. |