1 files changed, 2 insertions, 1 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 28e9f261..ac78d552 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -67,6 +67,7 @@ import System.Posix.Signals
 
 
 import Announcer
+import Announcer.Tox
 import ToxManager
 import Crypto.Tox -- (zeros32,SecretKey,PublicKey, generateSecretKey, toPublic, encodeSecret, decodeSecret, userKeys)
 import Network.UPNP as UPNP
@@ -1009,7 +1010,7 @@ clientSession s@Session{..} sock cnum h = do
                                               dhtQuery
                             doit :: Char -> Announcer -> AnnounceKey -> AnnounceMethod r -> r -> IO ()
                             doit '+' = schedule
-                            doit '-' = cancel
+                            doit '-' = \a k _ _ -> cancel a k
                             doit _   = \_ _ _ _ -> hPutClientChunk h "Starting(+) or canceling(-)?"
                             matchingResult ::
                                 ( Typeable stok