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