fix typo
This commit is contained in:
parent
1258f673da
commit
1d808b6776
|
@ -241,9 +241,9 @@ takeRMapPredecessorsFromTo :: (Bounded k, Ord k, Num k)
|
|||
-> [a]
|
||||
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 -- stop value for taking
|
||||
-> RingMap k a
|
||||
-> [a]
|
||||
takeRMapSuccesorsFromTo fromVal toVal rmap = takeEntriesUntil_ rmap rMapLookupSucc toVal fromVal Nothing []
|
||||
takeRMapSuccessorsFromTo fromVal toVal rmap = takeEntriesUntil_ rmap rMapLookupSucc toVal fromVal Nothing []
|
||||
|
|
Loading…
Reference in a new issue