add baseless_warn global constant to suppress warnings

for baseless Group Rings
This commit is contained in:
kalmarek 2017-09-10 21:44:15 +02:00
parent d14c4ca0e7
commit df2e51128d
1 changed files with 4 additions and 2 deletions

View File

@ -11,6 +11,8 @@ import Base: convert, show, hash, ==, +, -, *, //, /, length, norm, rationalize,
#
###############################################################################
baseless_warn = false
type GroupRing{Gr<:Group, T<:GroupElem} <: Ring
group::Gr
basis::Vector{T}
@ -232,7 +234,7 @@ function show(io::IO, X::GroupRingElem)
end
print(io, str)
else
warn("Basis of the parent Group is not defined, showing coeffs")
baseless_warn && warn("Basis of the parent Group is not defined, showing coeffs")
show(io, MIME("text/plain"), X.coeffs)
end
end
@ -257,7 +259,7 @@ function (==)(A::GroupRing, B::GroupRing)
if isdefined(A, :basis) && isdefined(B, :basis)
A.basis == B.basis || return false
else
warn("Bases of GroupRings are not defined, comparing products mats.")
baseless_warn && warn("Bases of GroupRings are not defined, comparing products mats.")
A.pm == B.pm || return false
end
return true