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

give up on providing type signature for takeEntriesUntil

Browse source
This commit is contained in:
Trolli Schmittlauch 2020-06-17 15:13:49 +02:00
parent 43e4ab184e
commit f27812bcf3
1 changed files with 0 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Hash2Pub/FediChordTypes.hs
View file

@ -459,8 +459,6 @@ takeRMapEntries_ getterFunc startAt num rmap = reverse $
Nothing -> [] Nothing -> []
Just anEntry -> takeEntriesUntil (getKeyID anEntry) (getKeyID anEntry) (num-1) [anEntry] Just anEntry -> takeEntriesUntil (getKeyID anEntry) (getKeyID anEntry) (num-1) [anEntry]
where where
-- TODO: figure out correct type signature once it compiles
--takeEntriesUntil :: (HasKeyID b, Integral i) => NodeID -> NodeID -> i -> [b] -> [b]
takeEntriesUntil havingReached previousEntry remaining takeAcc takeEntriesUntil havingReached previousEntry remaining takeAcc
| remaining <= 0 = takeAcc | remaining <= 0 = takeAcc
| getKeyID (fromJust $ getterFunc previousEntry rmap) == havingReached = takeAcc | getKeyID (fromJust $ getterFunc previousEntry rmap) == havingReached = takeAcc