diff options
| -rw-r--r-- | spec/src/Thermoprint/API.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 | |||
| 107 | toText = T.pack . formatTime defaultTimeLocale "%F_%T%Q" | 107 | toText = T.pack . formatTime defaultTimeLocale "%F_%T%Q" |
| 108 | 108 | ||
| 109 | data Range a = Min a | Max a | Through a a | 109 | data Range a = Min a | Max a | Through a a |
| 110 | deriving (Show, Eq, Generic) | ||
| 110 | 111 | ||
| 111 | instance Arbitrary a => Arbitrary (Range a) where | 112 | instance Arbitrary a => Arbitrary (Range a) where |
| 112 | arbitrary = oneof [ Min <$> arbitrary | 113 | arbitrary = oneof [ Min <$> arbitrary |