mainFunc = do
  args <- getArgs
  if args == []
    then do
      gameRef <- atomically $ newTVar (H.empty)
      run 8080 (app gameRef)
    else useArg (args !! 0)
mainFunc = do
  args <- getArgs
  if args == []
    then do
      gameRef <- atomically $ newTVar (H.empty)
      run 8080 (app gameRef)
    else useArg (args !! 0)
mainFunc = do
  args <- getArgs
  if args == []
    then do
      gameRef <- atomically $ newTVar (H.empty)
      run 8080 (app gameRef)
    else useArg (args !! 0)