read instances to facilitate persistent storage

2 files changed, 5 insertions, 5 deletions

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