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