diff options
Diffstat (limited to 'spec/src/Thermoprint/Identifiers.hs')
-rw-r--r-- | spec/src/Thermoprint/Identifiers.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/spec/src/Thermoprint/Identifiers.hs b/spec/src/Thermoprint/Identifiers.hs index a2609a4..ee35e24 100644 --- a/spec/src/Thermoprint/Identifiers.hs +++ b/spec/src/Thermoprint/Identifiers.hs | |||
@@ -12,13 +12,13 @@ import Servant.API (ToText, FromText) | |||
12 | import Data.Aeson (FromJSON, ToJSON) | 12 | import Data.Aeson (FromJSON, ToJSON) |
13 | 13 | ||
14 | newtype PrinterId = PrinterId Integer | 14 | newtype PrinterId = PrinterId Integer |
15 | deriving (Show, Eq, Ord, Num, Real, Integral, Enum, FromText, ToText, FromJSON, ToJSON) | 15 | deriving (Show, Read, Eq, Ord, Num, Real, Integral, Enum, FromText, ToText, FromJSON, ToJSON) |
16 | 16 | ||
17 | newtype JobId = JobId Integer | 17 | newtype JobId = JobId Integer |
18 | deriving (Show, Eq, Ord, Num, Real, Integral, Enum, FromText, ToText, FromJSON, ToJSON) | 18 | deriving (Show, Read, Eq, Ord, Num, Real, Integral, Enum, FromText, ToText, FromJSON, ToJSON) |
19 | 19 | ||
20 | newtype DraftId = DraftId Integer | 20 | newtype DraftId = DraftId Integer |
21 | deriving (Show, Eq, Ord, Num, Real, Integral, Enum, FromText, ToText, FromJSON, ToJSON) | 21 | deriving (Show, Read, Eq, Ord, Num, Real, Integral, Enum, FromText, ToText, FromJSON, ToJSON) |
22 | 22 | ||
23 | castId :: (Integral a, Enum b) => a -> b | 23 | castId :: (Integral a, Enum b) => a -> b |
24 | castId = toEnum . fromInteger . toInteger | 24 | castId = toEnum . fromInteger . toInteger |