From 7d4737f3f74490a64b26af5e0e8ef0d951338af7 Mon Sep 17 00:00:00 2001
From: Erik Paemurru <computeralgebra@runbox.com>
Date: Fri, 27 Sep 2024 15:01:36 +0200
Subject: [PATCH] Add `components` method

---
 docs/src/manual/abelian/elements.md | 1 +
 src/GrpAb/Elem.jl                   | 9 +++++++++
 src/exports.jl                      | 1 +
 3 files changed, 11 insertions(+)

diff --git a/docs/src/manual/abelian/elements.md b/docs/src/manual/abelian/elements.md
index 1434705bbe..8ebee2ca9c 100644
--- a/docs/src/manual/abelian/elements.md
+++ b/docs/src/manual/abelian/elements.md
@@ -19,6 +19,7 @@ parent(x::FinGenAbGroupElem)
 ### Access
 
 ```@docs
+components(x::FinGenAbGroupElem)
 getindex(x::FinGenAbGroupElem, i::Int)
 ```
 
diff --git a/src/GrpAb/Elem.jl b/src/GrpAb/Elem.jl
index 402921cc2e..77da2f92cc 100644
--- a/src/GrpAb/Elem.jl
+++ b/src/GrpAb/Elem.jl
@@ -137,6 +137,15 @@ end
 #
 ################################################################################
 
+@doc raw"""
+    components(x::FinGenAbGroupElem) -> Vector{ZZRingElem}
+
+Returns the components of the element $x$.
+"""
+function components(x::FinGenAbGroupElem)
+  return x.coeff
+end
+
 @doc raw"""
     getindex(x::FinGenAbGroupElem, i::Int) -> ZZRingElem
 
diff --git a/src/exports.jl b/src/exports.jl
index da71484562..379cfbd9d1 100644
--- a/src/exports.jl
+++ b/src/exports.jl
@@ -206,6 +206,7 @@ export codifferent
 export codomain
 export coefficient_ideals
 export coefficients
+export components
 export coinvariant_lattice
 export cokernel
 export collapse_top_layer