diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-09-06 14:56:04 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-09-06 14:56:04 -0400 |
| commit | a00f1d26bc3f121e49ee3f6ff5f46d7b330161ff (patch) | |
| tree | 1951e9ca7e482fc67f9c232b0fb22680ee19f5a0 /Assistant/Threads/Watcher.hs | |
| parent | d11ded822cf68d4f33a886e0f97f95a3781e0dc1 (diff) | |
display errors when any named thread crashes
Diffstat (limited to 'Assistant/Threads/Watcher.hs')
| -rw-r--r-- | Assistant/Threads/Watcher.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Assistant/Threads/Watcher.hs b/Assistant/Threads/Watcher.hs index 89cc98fa4..3054c50e1 100644 --- a/Assistant/Threads/Watcher.hs +++ b/Assistant/Threads/Watcher.hs @@ -56,8 +56,8 @@ needLsof = error $ unlines , "Be warned: This can corrupt data in the annex, and make fsck complain." ] -watchThread :: ThreadState -> DaemonStatusHandle -> TransferQueue -> ChangeChan -> IO () -watchThread st dstatus transferqueue changechan = do +watchThread :: ThreadState -> DaemonStatusHandle -> TransferQueue -> ChangeChan -> NamedThread +watchThread st dstatus transferqueue changechan = NamedThread thisThread $ do void $ watchDir "." ignored hooks startup debug thisThread [ "watching", "."] where |