schmittlauch/Hash2Pub
1
0
Fork 1
Code Issues 47 Pull requests Releases Wiki Activity

fix typo

Browse source
This commit is contained in:
Trolli Schmittlauch 2020-08-12 12:16:20 +02:00
parent 1258f673da
commit 1d808b6776
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Hash2Pub/RingMap.hs
View file

@ -241,9 +241,9 @@ takeRMapPredecessorsFromTo :: (Bounded k, Ord k, Num k)
-> [a] -> [a]
takeRMapPredecessorsFromTo fromVal toVal rmap = takeEntriesUntil_ rmap rMapLookupPred toVal fromVal Nothing [] takeRMapPredecessorsFromTo fromVal toVal rmap = takeEntriesUntil_ rmap rMapLookupPred toVal fromVal Nothing []
takeRMapSuccesorsFromTo :: (Bounded k, Ord k, Num k) takeRMapSuccessorsFromTo :: (Bounded k, Ord k, Num k)
=> k -- start value for taking => k -- start value for taking
-> k -- stop value for taking -> k -- stop value for taking
-> RingMap k a -> RingMap k a
-> [a] -> [a]
takeRMapSuccesorsFromTo fromVal toVal rmap = takeEntriesUntil_ rmap rMapLookupSucc toVal fromVal Nothing [] takeRMapSuccessorsFromTo fromVal toVal rmap = takeEntriesUntil_ rmap rMapLookupSucc toVal fromVal Nothing []