killHistoryWorker :: WorkerCache -> HistoryWorker -> IO ()
killHistoryWorker wc hw =
    do alreadyDead <- atomically $ privatiseWorker wc hw
       when (not alreadyDead) $ reallyKillHistoryWorker hw

{- Finaliser for history objects -}
killHistoryWorker :: WorkerCache -> HistoryWorker -> IO ()
killHistoryWorker wc hw =
    do alreadyDead <- atomically $ privatiseWorker wc hw
       when (not alreadyDead) $ reallyKillHistoryWorker hw

{- Finaliser for history objects -}
killHistoryWorker wc hw =
    do alreadyDead <- atomically $ privatiseWorker wc hw
       when (not alreadyDead) $ reallyKillHistoryWorker hw

{- Finaliser for history objects -}