git.iko.soy/xml-isogen
on 5a20765 help sign in
bb8d008
swap
0 ahead, 4 behind
2 files changed+7−8
since splitsnapshots
unifiedsplit
src/Data/THGen/XML/Internal.hs+3−4 test/TestDefs.hs+4−4
src/Data/THGen/XML/Internal.hs+3−4
@@ -1,4 +1,3 @@
1−{-# LANGUAGE CPP #-}
21{-# LANGUAGE UndecidableInstances #-}
32{-# LANGUAGE FunctionalDependencies #-}
43
@@ -380,11 +379,11 @@ isoXmlGenerateDatatype genType (PrefixName strName' strPrefix') descRecordParts
380379 toXmlParentAttributesExpr
381380 = TH.lamE [if null exprAttributes then TH.wildP else TH.varP objName]
382381 $ [e|mapMaybe distribPair $(TH.listE exprAttributes)|]
383−#if __GLASGOW_HASKELL__ < 800
382+ #if __GLASGOW_HASKELL__ < 800
384383 TH.instanceD
385−#else
384+ #else
386385 TH.instanceWithOverlapD (Just TH.Overlapping)
387−#endif
386+ #endif
388387 (return [])
389388 [t|ToXmlParentAttributes $(TH.conT name)|]
390389 [funSimple 'toXmlParentAttributes toXmlParentAttributesExpr]
test/TestDefs.hs+4−4
@@ -9,11 +9,11 @@ import Data.THGen.XML
99import Test.QuickCheck.Arbitrary.Generic
1010import Test.QuickCheck.Instances ()
1111
12−"Bar" =:= enum Both
12+"Bar" =:= enum
1313 & "baroque"
1414 & "bartender"
1515
16−"Quux" Exhaustive =:= enum Both
16+"Quux" Exhaustive =:= enum
1717 & "ALL"
1818 & "YOUR"
1919 & "BASE"
@@ -22,14 +22,14 @@ import Test.QuickCheck.Instances ()
2222 & "TO"
2323 & "US"
2424
25−"Foo" =:= record Both
25+"Foo" =:= record
2626 ^ "Shmuux" [t|XmlQuux|]
2727 + "Bar"
2828 ? "Baz" [t|Text|]
2929 !% "Quux"
3030 ?% "Muux" [t|XmlQuux|]
3131
32−"Root" =:= record Both
32+"Root" =:= record
3333 ! "{http://example.com/ns/my-namespace}Foo"
3434
3535instance Arbitrary XmlRoot where