From bad22a9e32512c78298adbf6654eac2ac3524bbe Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Tue, 13 Jun 2017 00:16:32 -0400
Subject: Changed comments for haddock parsing.

---
 src/Network/DHT/Routing.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Network/DHT/Routing.hs')

diff --git a/src/Network/DHT/Routing.hs b/src/Network/DHT/Routing.hs
index 1d1aa44b..5c6abe5d 100644
--- a/src/Network/DHT/Routing.hs
+++ b/src/Network/DHT/Routing.hs
@@ -253,12 +253,12 @@ insertBucket curTime (TryInsert info) bucket
                 guard (t < curTime - delta)
                 return n
              -- All stale:
-             -- map key $ PSQ.atMost (curTime - delta) $ bktNodes bucket
+             -- map key \$ PSQ.atMost (curTime - delta) $ bktNodes bucket
 
     already_have = maybe False (const True) $ PSQ.lookup info (bktNodes bucket)
 
     map_ns f = bucket { bktNodes = f (bktNodes bucket) }
-    -- map_q f = bucket { bktQ = runIdentity $ f (bktQ bucket) }
+    -- map_q f = bucket { bktQ = runIdentity \$ f (bktQ bucket) }
 
 insertBucket curTime (PingResult bad_node got_response) bucket
     = pure ([], Bucket (upd $ bktNodes bucket) popped)
-- 
cgit v1.2.3