@@ -44,6 +44,8 @@ instance Arbitrary XmlFoo where
44 arbitrary = genericArbitrary
44 arbitrary = genericArbitrary
45 shrink = genericShrink
45 shrink = genericShrink
47+#if __GLASGOW_HASKELL__ < 800
47instance Arbitrary (NonEmpty XmlBar) where
48instance Arbitrary (NonEmpty XmlBar) where
48 arbitrary = genericArbitrary
49 arbitrary = genericArbitrary
49 shrink = genericShrink
50 shrink = genericShrink