1 files changed, 1 insertions, 1 deletions

diff --git a/src/Network/Tox/Onion/Handlers.hs b/src/Network/Tox/Onion/Handlers.hs
index 76908df8..b06fc2af 100644
--- a/src/Network/Tox/Onion/Handlers.hs
+++ b/src/Network/Tox/Onion/Handlers.hs
@@ -42,7 +42,7 @@ import Data.Functor.Identity
 type Client r = QR.Client String PacketKind TransactionId (OnionDestination r) Message
 type Message = OnionMessage Identity
 
-classify :: Message -> MessageClass String PacketKind TransactionId
+classify :: Message -> MessageClass String PacketKind TransactionId (OnionDestination r) Message
 classify msg = go msg
  where
     go (OnionAnnounce         announce)    = IsQuery AnnounceType