Changed comments for haddock parsing.

1 files changed, 5 insertions, 5 deletions

diff --git a/src/Network/BitTorrent/DHT/Query.hs b/src/Network/BitTorrent/DHT/Query.hs
index ae072db0..9162abdc 100644
--- a/src/Network/BitTorrent/DHT/Query.hs
+++ b/src/Network/BitTorrent/DHT/Query.hs
@@ -259,7 +259,7 @@ isearch f ih = do
                     tid <- myThreadId
                     labelThread tid ("search."++show ih)
                     Search.search s
-                    -- atomically $ readTVar (Search.searchResults s)
+                    -- atomically \$ readTVar (Search.searchResults s)
                 return (a, s)
 
 
@@ -298,11 +298,11 @@ refreshNodes nid = do
   $(logDebugS) "routing.refresh_bucket" (T.pack (render (pPrint nid)))
   nodes <- getClosest nid
   do
-    -- forM (L.take 1 nodes) $ \ addr -> do
+    -- forM (L.take 1 nodes) \$ \ addr -> do
     -- NodeFound ns <- FindNode nid <@> addr
     -- Expected type: ConduitM [NodeAddr ip] [NodeInfo KMessageOf ip ()] (DHT ip) ()
     --   Actual type: ConduitM [NodeInfo KMessageOf ip ()] [NodeInfo KMessageOf ip ()] (DHT ip) ()
-    -- nss <- sourceList [[addr]] $= search nid (findNodeQ nid) $$ C.consume
+    -- nss <- sourceList [[addr]] \$= search nid (findNodeQ nid) $$ C.consume
     nss <- sourceList [nodes] $= search nid (findNodeQ nid) $$ C.consume
     $(logWarnS) "refreshNodes" $ "received " <> T.pack (show (L.length (L.concat nss))) <> " nodes."
     _ <- queryParallel $ flip L.map (L.concat nss) $ \n -> do
@@ -310,7 +310,7 @@ refreshNodes nid = do
         pingQ (nodeAddr n)
         -- pingQ takes care of inserting the node.
     return ()
-  return () -- $ L.concat nss
+  return () -- \$ L.concat nss
 
 -- | This operation do not block but acquire exclusive access to
 --   routing table.
@@ -398,7 +398,7 @@ queryNode' addr q = do
   let read_only = False -- TODO: check for NAT issues. (BEP 43)
   let KRPC.Method name = KRPC.method :: KRPC.Method (Query a) (Response b)
   (Response remoteId r, witnessed_ip) <- query' name (toSockAddr addr) (Query nid read_only q)
-  -- $(logDebugS) "queryNode" $ "Witnessed address: " <> T.pack (show witnessed_ip)
+  -- \$(logDebugS) "queryNode" $ "Witnessed address: " <> T.pack (show witnessed_ip)
   --                             <> " by " <> T.pack (show (toSockAddr addr))
   _ <- insertNode (NodeInfo remoteId addr ()) witnessed_ip
   return (remoteId, r, witnessed_ip)