Verified Commit 697a75dd authored by Camil Staps's avatar Camil Staps 🙂

Avoid concatenation with ""

parent 008b97bb
Pipeline #42944 passed with stage
in 2 minutes and 13 seconds
......@@ -9,7 +9,7 @@ import Control.GenBimap
ggen{|XMLDocWithString|} st =
[ docWithHexCharacterReferences
, docWithDecCharacterReferences
: (\(doc, withWhite) -> {document = doc, stringRepresentation = toString doc +++ if withWhite " " ""}) <$> docs
: (\(doc, withWhite) -> {document = doc, stringRepresentation = if withWhite (toString doc+++" ") (toString doc)}) <$> docs
]
where
// This cannot be generated by `toString`, as UTF-8 characters are included in the string representation unencoded.
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment