@@ -49,7 +49,10 @@ instance Arbitrary TL.Text where
49 arbitrary = TL.pack `fmap` arbitrary
49 arbitrary = TL.pack `fmap` arbitrary
51newtype NotEmpty a = NotEmpty { notEmpty :: a }
51newtype NotEmpty a = NotEmpty { notEmpty :: a }
52− deriving (Eq, Ord, Show)
52+ deriving (Eq, Ord)
54+instance Show a => Show (NotEmpty a) where
55+ show (NotEmpty a) = show a
54instance Functor NotEmpty where
57instance Functor NotEmpty where
55 fmap f (NotEmpty a) = NotEmpty (f a)
58 fmap f (NotEmpty a) = NotEmpty (f a)