diff options
| author | Joe Crayne <joe@jerkface.net> | 2018-12-27 19:52:08 -0500 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2018-12-27 19:52:08 -0500 |
| commit | 3dae31030c20ed9ad831dfba88db781ebe71ca54 (patch) | |
| tree | 8bb99468709d7787c6dceef524d024b1c833c0f1 /src/Network/QueryResponse.hs | |
| parent | 37eb345d1ffb40e814766b6df8134ca21e6987a7 (diff) | |
TCP-related Debug info.
Diffstat (limited to 'src/Network/QueryResponse.hs')
| -rw-r--r-- | src/Network/QueryResponse.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/Network/QueryResponse.hs b/src/Network/QueryResponse.hs index 0fbbc929..13160d31 100644 --- a/src/Network/QueryResponse.hs +++ b/src/Network/QueryResponse.hs | |||
| @@ -198,6 +198,7 @@ forkListener name client = do | |||
| 198 | thread_id <- forkIO $ do | 198 | thread_id <- forkIO $ do |
| 199 | myThreadId >>= flip labelThread ("listener."++name) | 199 | myThreadId >>= flip labelThread ("listener."++name) |
| 200 | fix $ awaitMessage client . const | 200 | fix $ awaitMessage client . const |
| 201 | dput XMisc $ "Listener died: " ++ name | ||
| 201 | return $ do | 202 | return $ do |
| 202 | closeTransport client | 203 | closeTransport client |
| 203 | killThread thread_id | 204 | killThread thread_id |