diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-03-01 06:25:08 +0100 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-03-01 06:25:08 +0100 |
| commit | c5758391f793fc3d7d177bdacf79aac72da979d5 (patch) | |
| tree | ba1ca6e438490e8929cf20cd76795a95a53c9409 | |
| parent | ea58708854d7f78c31397c8c815aba2c6398315a (diff) | |
| download | thermoprint-c5758391f793fc3d7d177bdacf79aac72da979d5.tar thermoprint-c5758391f793fc3d7d177bdacf79aac72da979d5.tar.gz thermoprint-c5758391f793fc3d7d177bdacf79aac72da979d5.tar.bz2 thermoprint-c5758391f793fc3d7d177bdacf79aac72da979d5.tar.xz thermoprint-c5758391f793fc3d7d177bdacf79aac72da979d5.zip | |
Some instances for Range
| -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 |