git.iko.soy/typeable/xml-isogen
on master help sign in
Remove redundant toXML invocation
commitec5c15bcbe6d21994f3f6560dfa1469e18ba242e authorVladislav Zavialov <vlad.z.4096@gmail.com> dateWed 1 Mar 2017, 10:17 (10 years ago) parent8acbc16
1 file changed+1−1
compare with master
unifiedsplit
src/Data/THGen/XML.hs+1−1
src/Data/THGen/XML.hs+1−1
@@ -432,7 +432,7 @@ isoXmlGenerateRecord (PrefixName strName' strPrefix') descRecordParts = do
432432 [fromDomInst, toXmlInst, toXmlParentAttributesInst]
433433
434434mkElement :: (XW.ToXML a, ToXmlParentAttributes a) => X.Name -> a -> XW.XML
435−mkElement name a = XW.elementA name (toXmlParentAttributes a) (XW.toXML a)
435+mkElement name a = XW.elementA name (toXmlParentAttributes a) a
436436
437437distribPair :: Functor f => (a, f b) -> f (a, b)
438438distribPair (a, fb) = (a,) <$> fb