|
definition:
|
warn :: TPos -> WarnID -> [Warning] -> [Warning]
warn pos id ws = (fromSimplePos (fst pos),msg) : ws
where msg = case id of
TagNameFirstDigit
-> "ignored first tag name character because it is a digit"
TagNameNotAlphaNum
-> "ignored tag name character because it is not alphanumerical"
TagEndsUnexpected
-> "unexpected characters at end of tag"
UnquotedAttributeEmpty
-> "unquoted attribute values must not be empty"
Unquoted c
-> "ignored " ++ [c] ++ " in unquoted attribute value"
AttributesUnseperated
-> "attributes must be seperated by at least one space character"
UnexpectedEndTag
-> "ignored unexpected end tag"
SingleEndTag
-> "end tag without previous start tag"
|
|
demand:
|
no demanded arguments
|
|
deterministic:
|
deterministic operation
|
|
documentation:
|
-- push a new warning to an existent list of warnings
|
|
failfree:
|
(_, _, _)
|
|
indeterministic:
|
referentially transparent operation
|
|
infix:
|
no fixity defined
|
|
iotype:
|
{(_,_,_) |-> {:}}
|
|
name:
|
warn
|
|
precedence:
|
no precedence defined
|
|
result-values:
|
{:}
|
|
signature:
|
((Prelude.Int, Prelude.Int), Prelude.Int) -> CPP.ICode.Parser.ML.Types.WarnID
-> [(CPP.ICode.ParsePos.Pos, String)] -> [(CPP.ICode.ParsePos.Pos, String)]
|
|
solution-complete:
|
operation might suspend on free variables
|
|
terminating:
|
yes
|
|
totally-defined:
|
reducible on all ground data terms
|