evaluateCommand (TaskSetParent _ pn cn) h st = do
  let u' = view uuidCurrentTask st
  sendOverNetwork h (TaskSetParent u' pn cn)
  return $ Right st
evaluateCommand (TaskSetParent _ pn cn) h st = do
  let u' = view uuidCurrentTask st
  sendOverNetwork h (TaskSetParent u' pn cn)
  return $ Right st
evaluateCommand (TaskSetParent _ pn cn) h st = do
  let u' = view uuidCurrentTask st
  sendOverNetwork h (TaskSetParent u' pn cn)
  return $ Right st