evaluateCommand (TaskSelect taskName) _ st = do
  let uuidSelected = getUuidSelected taskName $ view tasks st
  let st' = set uuidCurrentTask uuidSelected st
  return $ Right st'
evaluateCommand (TaskSelect taskName) _ st = do
  let uuidSelected = getUuidSelected taskName $ view tasks st
  let st' = set uuidCurrentTask uuidSelected st
  return $ Right st'
evaluateCommand (TaskSelect taskName) _ st = do
  let uuidSelected = getUuidSelected taskName $ view tasks st
  let st' = set uuidCurrentTask uuidSelected st
  return $ Right st'