freezeWorker :: Worker -> IO ()
freezeWorker worker =
    writeIORef (worker_frozen worker) True
freezeWorker :: Worker -> IO ()
freezeWorker worker =
    writeIORef (worker_frozen worker) True
freezeWorker worker =
    writeIORef (worker_frozen worker) True