From ea079b5ee00f5371bde992a14676374a431371b5 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Mon, 11 Jan 2016 03:34:16 +0000 Subject: More fleshed out API --- spec/src/Thermoprint/Identifiers.hs | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 spec/src/Thermoprint/Identifiers.hs (limited to 'spec/src/Thermoprint/Identifiers.hs') diff --git a/spec/src/Thermoprint/Identifiers.hs b/spec/src/Thermoprint/Identifiers.hs new file mode 100644 index 0000000..bd0b7a6 --- /dev/null +++ b/spec/src/Thermoprint/Identifiers.hs @@ -0,0 +1,19 @@ +{-# LANGUAGE GeneralizedNewtypeDeriving, NoDeriveAnyClass #-} + +module Thermoprint.Identifiers + ( PrinterId(..) + , JobId(..) + , DraftId(..) + ) where + +import Servant.API (ToText, FromText) +import Data.Aeson (FromJSON, ToJSON) + +newtype PrinterId = PrinterId Integer + deriving (Show, Eq, Ord, Enum, FromText, ToText, FromJSON, ToJSON) + +newtype JobId = JobId Integer + deriving (Show, Eq, Ord, Enum, FromText, ToText, FromJSON, ToJSON) + +newtype DraftId = DraftId Integer + deriving (Show, Eq, Ord, Enum, FromText, ToText, FromJSON, ToJSON) -- cgit v1.2.3