@@ -345,8 +345,9 @@ isoXmlGenerateDatatype (PrefixName strName' strPrefix') descRecordParts = do
345345 fType = case attributePlural of
346346 XmlAttributePluralMandatory -> attributeType
347347 XmlAttributePluralOptional -> [t| Maybe $attributeType |]
348− in
349− varStrictType fName (strictType fType)
348+ in if isNewtype
349+ then varStrictType fName (nonStrictType fType)
350+ else varStrictType fName (strictType fType)
350351 if isNewtype
351352 -- generate a newtype instead to do less allocations later
352353 then newtypeD name (TH.recC name fields) [''Eq, ''Show, ''Generic]