summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Network/KRPC/Manager.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/KRPC/Manager.hs b/src/Network/KRPC/Manager.hs
index c63967d0..084a8d8d 100644
--- a/src/Network/KRPC/Manager.hs
+++ b/src/Network/KRPC/Manager.hs
@@ -192,7 +192,7 @@ dispatchHandler q @ KQuery {..} addr = do
192-----------------------------------------------------------------------} 192-----------------------------------------------------------------------}
193 193
194handleQuery :: MonadKRPC h m => KQuery -> SockAddr -> m () 194handleQuery :: MonadKRPC h m => KQuery -> SockAddr -> m ()
195handleQuery q addr = do 195handleQuery q addr = void $ fork $ do
196 Manager {..} <- getManager 196 Manager {..} <- getManager
197 res <- dispatchHandler q addr 197 res <- dispatchHandler q addr
198 sendMessage sock addr $ either toBEncode toBEncode res 198 sendMessage sock addr $ either toBEncode toBEncode res