@@ -44,6 +44,8 @@ instance Arbitrary XmlFoo where
4444 arbitrary = genericArbitrary
4545 shrink = genericShrink
4646
47+#if __GLASGOW_HASKELL__ < 800
4748instance Arbitrary (NonEmpty XmlBar) where
4849 arbitrary = genericArbitrary
4950 shrink = genericShrink
51+#endif