More fleshed out API

1 files changed, 19 insertions, 0 deletions

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)