updateServer :: ServerConfig -> IO ([ProcessID])
updateServer ServerConfig = do
  pid1 <- forkWorkerProcess (Worker1 "Hello. I'm a worker 1.")
  pid2 <- forkWorkerProcess (Worker2 "Hello. I'm a worker 2.")
  return ([pid1, pid2])
updateServer :: ServerConfig -> IO ([ProcessID])
updateServer ServerConfig = do
  pid1 <- forkWorkerProcess (Worker1 "Hello. I'm a worker 1.")
  pid2 <- forkWorkerProcess (Worker2 "Hello. I'm a worker 2.")
  return ([pid1, pid2])
updateServer ServerConfig = do
  pid1 <- forkWorkerProcess (Worker1 "Hello. I'm a worker 1.")
  pid2 <- forkWorkerProcess (Worker2 "Hello. I'm a worker 2.")
  return ([pid1, pid2])