doHistoryEntry :: Worker -> HistoryEntry -> IO ()
doHistoryEntry w (HistoryRun tid cntr) =
    do setThreadWorker w tid
       r <- runWorker "doHistoryEntry" w cntr
       when (not r) $
            putStrLn $ "failed to replay history entry run " ++ (show tid) ++ " " ++ (show cntr) ++ " in " ++ (show w)
doHistoryEntry :: Worker -> HistoryEntry -> IO ()
doHistoryEntry w (HistoryRun tid cntr) =
    do setThreadWorker w tid
       r <- runWorker "doHistoryEntry" w cntr
       when (not r) $
            putStrLn $ "failed to replay history entry run " ++ (show tid) ++ " " ++ (show cntr) ++ " in " ++ (show w)
doHistoryEntry w (HistoryRun tid cntr) =
    do setThreadWorker w tid
       r <- runWorker "doHistoryEntry" w cntr
       when (not r) $
            putStrLn $ "failed to replay history entry run " ++ (show tid) ++ " " ++ (show cntr) ++ " in " ++ (show w)