1 files changed, 2 insertions, 2 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index d5428f93..481129b3 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -1652,8 +1652,8 @@ onNewToxSession sv ssvar ContactInfo{accounts} addrTox netcrypto = do
           where
             toxSrc  :: ConduitT ()                         (Int, CryptoMessage) IO ()
             toxSnk  :: ConduitT (Maybe Int, CryptoMessage) Void                 IO ()
-            xmppSrc :: ConduitT ()                XML.Event IO ()
-            xmppSnk :: ConduitT (Flush XML.Event) Void      IO ()
+            xmppSrc :: ConduitT ()                         XML.Event            IO ()
+            xmppSnk :: ConduitT (Flush XML.Event)          Void                 IO ()
 
             toxSrc  = ioToSource (atomically $ orElse (awaitAny c)
                                                   $ aggregateStatus c >>= \case