From a3db7ab92ced913ba59053ed9f18a53b57878926 Mon Sep 17 00:00:00 2001
From: kalmar <kalmar@amu.edu.pl>
Date: Thu, 11 May 2017 18:01:55 +0200
Subject: [PATCH] add parent; move GWord constructor and GSymbol -> GWord
 conversion

---
 src/Groups.jl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/Groups.jl b/src/Groups.jl
index cb0cb67..5cbf51c 100644
--- a/src/Groups.jl
+++ b/src/Groups.jl
@@ -48,10 +48,12 @@ type GWord{T<:GSymbol} <: GroupElem
     end
 end
 
-GWord{T<:GSymbol}(s::T) = GWord{T}([s])
-convert{T<:GSymbol, W<:Word}(::Type{W}, s::T) = GWord{T}(s)
 
 
+parent{T<:GSymbol}(w::GWord{T}) = w.parent
+
+GWord{T<:GSymbol}(s::T) = GWord{T}(T[s])
+convert{T<:GSymbol}(::Type{GWord{T}}, s::T) = GWord{T}(T[s])
 
 
 function hash(W::GWord, h::UInt)