From f27812bcf31170edca4af31a9d5d9ce577ec5c29 Mon Sep 17 00:00:00 2001
From: Trolli Schmittlauch <t.schmittlauch@orlives.de>
Date: Wed, 17 Jun 2020 15:13:49 +0200
Subject: [PATCH] give up on providing type signature for takeEntriesUntil

---
 src/Hash2Pub/FediChordTypes.hs | 2 --
 1 file changed, 2 deletions(-)

diff --git a/src/Hash2Pub/FediChordTypes.hs b/src/Hash2Pub/FediChordTypes.hs
index 27d5f32..06f0fc5 100644
--- a/src/Hash2Pub/FediChordTypes.hs
+++ b/src/Hash2Pub/FediChordTypes.hs
@@ -459,8 +459,6 @@ takeRMapEntries_ getterFunc startAt num rmap = reverse $
       Nothing -> []
       Just anEntry -> takeEntriesUntil (getKeyID anEntry) (getKeyID anEntry) (num-1) [anEntry]
   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
       | remaining <= 0 = takeAcc
       | getKeyID (fromJust $ getterFunc previousEntry rmap) == havingReached = takeAcc