@@ -380,11 +380,11 @@ isoXmlGenerateDatatype genType (PrefixName strName' strPrefix') descRecordParts
380380 toXmlParentAttributesExpr
381381 = TH.lamE [if null exprAttributes then TH.wildP else TH.varP objName]
382382 $ [e|mapMaybe distribPair $(TH.listE exprAttributes)|]
383− #if __GLASGOW_HASKELL__ < 800
383+#if __GLASGOW_HASKELL__ < 800
384384 TH.instanceD
385− #else
385+#else
386386 TH.instanceWithOverlapD (Just TH.Overlapping)
387− #endif
387+#endif
388388 (return [])
389389 [t|ToXmlParentAttributes $(TH.conT name)|]
390390 [funSimple 'toXmlParentAttributes toXmlParentAttributesExpr]