1 files changed, 1 insertions, 1 deletions

diff --git a/kad/tests/searchCancel.hs b/kad/tests/searchCancel.hs
index 33860a2f..e8aa33c7 100644
--- a/kad/tests/searchCancel.hs
+++ b/kad/tests/searchCancel.hs
@@ -52,7 +52,7 @@ sch mbv var = Search
                                        let qk = maybe 0 (\(ns,_,_) -> head ns) r
                                        f qk $ maybe TimedOut Success r
                                        return qk
-    , searchQueryCancel = \_ -> return ()
+    , searchQueryCancel = \_ _ -> return ()
     , searchAlpha       = 4
     , searchK           = 8
     }