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