evaluateCommand (TaskCreate n u _up) h st = do
  let u' = view uuidCurrentTask st
  sendOverNetwork h (TaskCreate n u u') 
  return $ Right st
evaluateCommand (TaskCreate n u _up) h st = do
  let u' = view uuidCurrentTask st
  sendOverNetwork h (TaskCreate n u u') 
  return $ Right st
evaluateCommand (TaskCreate n u _up) h st = do
  let u' = view uuidCurrentTask st
  sendOverNetwork h (TaskCreate n u u') 
  return $ Right st