exitThread :: IO ()
exitThread = do
  con <- initXenConsole
  writeDebugConsole "Entering exitThread\n"
  threadDelay 1000000
  writeDebugConsole "Writing console message\n"
  writeConsole con "Shutting down now!\n"
  threadDelay 1000
  writeDebugConsole "Calling shutdown\n"
  exitSuccess
exitThread :: IO ()
exitThread = do
  con <- initXenConsole
  writeDebugConsole "Entering exitThread\n"
  threadDelay 1000000
  writeDebugConsole "Writing console message\n"
  writeConsole con "Shutting down now!\n"
  threadDelay 1000
  writeDebugConsole "Calling shutdown\n"
  exitSuccess
exitThread = do
  con <- initXenConsole
  writeDebugConsole "Entering exitThread\n"
  threadDelay 1000000
  writeDebugConsole "Writing console message\n"
  writeConsole con "Shutting down now!\n"
  threadDelay 1000
  writeDebugConsole "Calling shutdown\n"
  exitSuccess