evaluateCommand (TaskSetDescription _ d) h st = do
  let u' = view uuidCurrentTask st
  sendOverNetwork h (TaskSetDescription u' d)
  return $ Right st
evaluateCommand (TaskSetDescription _ d) h st = do
  let u' = view uuidCurrentTask st
  sendOverNetwork h (TaskSetDescription u' d)
  return $ Right st
evaluateCommand (TaskSetDescription _ d) h st = do
  let u' = view uuidCurrentTask st
  sendOverNetwork h (TaskSetDescription u' d)
  return $ Right st