From c5758391f793fc3d7d177bdacf79aac72da979d5 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Tue, 1 Mar 2016 06:25:08 +0100 Subject: Some instances for Range --- spec/src/Thermoprint/API.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'spec/src/Thermoprint/API.hs') diff --git a/spec/src/Thermoprint/API.hs b/spec/src/Thermoprint/API.hs index 5b9c266..3752848 100644 --- a/spec/src/Thermoprint/API.hs +++ b/spec/src/Thermoprint/API.hs @@ -107,6 +107,7 @@ instance ToText UTCTime where toText = T.pack . formatTime defaultTimeLocale "%F_%T%Q" data Range a = Min a | Max a | Through a a + deriving (Show, Eq, Generic) instance Arbitrary a => Arbitrary (Range a) where arbitrary = oneof [ Min <$> arbitrary -- cgit v1.2.3