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