diff options
Diffstat (limited to 'src')
-rw-r--r-- | src/Network/KRPC/Manager.hs | 2 |
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 | ||
194 | handleQuery :: MonadKRPC h m => KQuery -> SockAddr -> m () | 194 | handleQuery :: MonadKRPC h m => KQuery -> SockAddr -> m () |
195 | handleQuery q addr = do | 195 | handleQuery 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 |