diff options
Diffstat (limited to 'spec/src/Thermoprint/Identifiers.hs')
-rw-r--r-- | spec/src/Thermoprint/Identifiers.hs | 19 |
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 @@ | |||
1 | {-# LANGUAGE GeneralizedNewtypeDeriving, NoDeriveAnyClass #-} | ||
2 | |||
3 | module Thermoprint.Identifiers | ||
4 | ( PrinterId(..) | ||
5 | , JobId(..) | ||
6 | , DraftId(..) | ||
7 | ) where | ||
8 | |||
9 | import Servant.API (ToText, FromText) | ||
10 | import Data.Aeson (FromJSON, ToJSON) | ||
11 | |||
12 | newtype PrinterId = PrinterId Integer | ||
13 | deriving (Show, Eq, Ord, Enum, FromText, ToText, FromJSON, ToJSON) | ||
14 | |||
15 | newtype JobId = JobId Integer | ||
16 | deriving (Show, Eq, Ord, Enum, FromText, ToText, FromJSON, ToJSON) | ||
17 | |||
18 | newtype DraftId = DraftId Integer | ||
19 | deriving (Show, Eq, Ord, Enum, FromText, ToText, FromJSON, ToJSON) | ||