{-# 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)