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/API.hs | 4 ++-- spec/src/Thermoprint/Identifiers.hs | 6 +++--- 2 files changed, 5 insertions(+), 5 deletions(-) (limited to 'spec/src/Thermoprint') diff --git a/spec/src/Thermoprint/API.hs b/spec/src/Thermoprint/API.hs index 6c86008..00115f3 100644 --- a/spec/src/Thermoprint/API.hs +++ b/spec/src/Thermoprint/API.hs @@ -52,10 +52,10 @@ data JobStatus = Queued PrinterId | Printing PrinterId | Done | Failed PrintingError - deriving (Generic, Show, FromJSON, ToJSON) + deriving (Generic, Show, Read, FromJSON, ToJSON) data PrintingError = UnknownError - deriving (Typeable, Generic, Show, FromJSON, ToJSON, Exception) + deriving (Typeable, Generic, Show, Read, FromJSON, ToJSON, Exception) type DraftTitle = Text 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