1 files changed, 4 insertions, 3 deletions

diff --git a/TCPProber.hs b/TCPProber.hs
index db6d0217..506ef142 100644
--- a/TCPProber.hs
+++ b/TCPProber.hs
@@ -145,7 +145,8 @@ runProbeQueue prober client maxjobs = do
             labelThread t ("probe."++show ni)
         loop
 
-getNodes :: TCPProber -> TCP.TCPClient err () Nonce8 -> NodeId -> TCP.NodeInfo -> IO (Maybe ([TCP.NodeInfo],[TCP.NodeInfo],Maybe ()))
+
+getNodes :: TCPProber -> TCP.TCPClient err Nonce8 -> NodeId -> TCP.NodeInfo -> IO (Maybe ([TCP.NodeInfo],[TCP.NodeInfo],Maybe ()))
 getNodes prober tcp seeking dst = do
     r <- TCP.getUDPNodes' tcp seeking (TCP.udpNodeInfo dst)
     dput XTCP $ "Got via TCP nodes: " ++ show r
@@ -162,11 +163,11 @@ getNodes prober tcp seeking dst = do
                 return $ Just ts
         return $ Just ts
 
-nodeSearch :: TCPProber -> TCP.TCPClient err () Nonce8 -> Search NodeId (IP, PortNumber) () TCP.NodeInfo TCP.NodeInfo
+nodeSearch :: TCPProber -> TCP.TCPClient err Nonce8 -> Search NodeId (IP, PortNumber) () TCP.NodeInfo TCP.NodeInfo
 nodeSearch prober tcp = Search
     { searchSpace       = TCP.tcpSpace
     , searchNodeAddress = TCP.nodeIP &&& TCP.tcpPort
     , searchQuery       = getNodes prober tcp
-    , searchAlpha       = 8
+    , searchAlpha       = 1
     , searchK           = 16
     }