findAddendumByName name CFDI { addenda = Just (Addenda xs) } = find match xs
  where
    match Element { elName = QName n _ _ } = n == name
findAddendumByName name CFDI { addenda = Just (Addenda xs) } = find match xs
  where
    match Element { elName = QName n _ _ } = n == name
findAddendumByName name CFDI { addenda = Just (Addenda xs) } = find match xs
  where
    match Element { elName = QName n _ _ } = n == name