kalmar/GroupRings.jl
1
0
Fork 0
mirror of https://github.com/kalmarek/GroupRings.jl.git synced 2025-01-01 11:45:28 +01:00
Code Issues Releases Wiki Activity

preserve type of coerced element

Browse Source
This commit is contained in:
kalmar 2017-07-12 20:54:20 +02:00
parent ee3b4e0761
commit fc3cbeb14c
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/GroupRings.jl
View File

@ -151,11 +151,13 @@ function (RG::GroupRing)(X::GroupRingElem)
end end
function (RG::GroupRing)(X::GroupRingElem, emb::Function) function (RG::GroupRing)(X::GroupRingElem, emb::Function)
result = RG(eltype(X.coeffs)) result = RG(eltype(X.coeffs))
for g in parent(X).basis T = typeof(X.coeffs)
result[emb(g)] = X[g] result.coeffs = T(result.coeffs)
end for g in parent(X).basis
return result result[emb(g)] = X[g]
end
return result
end end
############################################################################### ###############################################################################