From 5273512b68c67eff2c8e869f84dad1c4d69e16a8 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sat, 23 Jan 2016 12:45:43 +0000 Subject: read instances to facilitate persistent storage --- spec/src/Thermoprint/Identifiers.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'spec/src/Thermoprint/Identifiers.hs') 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) import Data.Aeson (FromJSON, ToJSON) newtype PrinterId = PrinterId Integer - deriving (Show, Eq, Ord, Num, Real, Integral, Enum, FromText, ToText, FromJSON, ToJSON) + deriving (Show, Read, Eq, Ord, Num, Real, Integral, Enum, FromText, ToText, FromJSON, ToJSON) newtype JobId = JobId Integer - deriving (Show, Eq, Ord, Num, Real, Integral, Enum, FromText, ToText, FromJSON, ToJSON) + deriving (Show, Read, Eq, Ord, Num, Real, Integral, Enum, FromText, ToText, FromJSON, ToJSON) newtype DraftId = DraftId Integer - deriving (Show, Eq, Ord, Num, Real, Integral, Enum, FromText, ToText, FromJSON, ToJSON) + deriving (Show, Read, Eq, Ord, Num, Real, Integral, Enum, FromText, ToText, FromJSON, ToJSON) castId :: (Integral a, Enum b) => a -> b castId = toEnum . fromInteger . toInteger -- cgit v1.2.3