418664a · typeable/xml-isogen

git.iko.soy/typeable/xml-isogen

fix tests

commit418664a3adb330ba35ac16d185bc675b79501bcb authorDenis Redozubov <denis.redozubov@gmail.com> dateThu 10 Oct 2019, 23:54 (7 years ago) parent5a20765

2 files changed+5−4

compare with master

unifiedsplit

src/Data/THGen/XML/Internal.hs+1 test/TestDefs.hs+4−4

src/Data/THGen/XML/Internal.hs+1

@@ -1,3 +1,4 @@

1+{-# LANGUAGE CPP #-}

12{-# LANGUAGE UndecidableInstances #-}

23{-# LANGUAGE FunctionalDependencies #-}

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

12+"Bar" =:= enum Both

1313 & "baroque"

1414 & "bartender"

1515

16−"Quux" Exhaustive =:= enum

16+"Quux" Exhaustive =:= enum Both

1717 & "ALL"

1818 & "YOUR"

1919 & "BASE"

@@ -22,14 +22,14 @@ import Test.QuickCheck.Instances ()

2222 & "TO"

2323 & "US"

2424

25−"Foo" =:= record

25+"Foo" =:= record Both

2626 ^ "Shmuux" [t|XmlQuux|]

2727 + "Bar"

2828 ? "Baz" [t|Text|]

2929 !% "Quux"

3030 ?% "Muux" [t|XmlQuux|]

3131

32−"Root" =:= record

32+"Root" =:= record Both

3333 ! "{http://example.com/ns/my-namespace}Foo"

3434

3535instance Arbitrary XmlRoot where