Upd: try to fix overlapped instance
commit0448638ee81f6eafc02399eef22322399fc2d1fa
authorAleksey Uimanov <s9gf4ult@gmail.com>
dateTue 24 Oct 2017, 14:25 (9 years ago)
parentd146182
src/Data/THGen/XML.hs+4
@@ -422,7 +422,11 @@ isoXmlGenerateRecord (PrefixName strName' strPrefix') descRecordParts = do
422422 toXmlParentAttributesExpr
423423 = TH.lamE [if null exprAttributes then TH.wildP else TH.varP objName]
424424 $ [e|mapMaybe distribPair $(TH.listE exprAttributes)|]
425+#if __GLASGOW_HASKELL__ < 800
425426 TH.instanceD
427+#else
428+ TH.instanceWithOverlapD (Just TH.Overlapping)
429+#endif
426430 (return [])
427431 [t|ToXmlParentAttributes $(TH.conT name)|]
428432 [funSimple 'toXmlParentAttributes toXmlParentAttributesExpr]
xml-isogen.cabal+2−1
@@ -45,7 +45,8 @@ library
4545 hs-source-dirs: src
4646
4747 default-language: Haskell2010
48− default-extensions: FlexibleInstances
48+ default-extensions: CPP
49+ , FlexibleInstances
4950 , LambdaCase
5051 , TemplateHaskell
5152 , TupleSections