1 files changed, 21 insertions, 0 deletions

diff --git a/spec/src/Thermoprint/API.hs b/spec/src/Thermoprint/API.hs
new file mode 100644
index 0000000..f2ffd02
--- /dev/null
+++ b/spec/src/Thermoprint/API.hs
@@ -0,0 +1,21 @@
+{-# LANGUAGE GeneralizedNewtypeDeriving, NoDeriveAnyClass #-}
+{-# LANGUAGE TypeOperators, DataKinds #-}
+
+module Thermoprint.API
+       ( PrinterId(..)
+       , JobId(..)
+       , ThermoprintAPI
+       ) where
+
+import Thermoprint.Printout
+
+import Servant.API
+import Data.Aeson
+
+newtype PrinterId = PrinterId Integer
+                  deriving (Show, Eq, FromText, ToText, FromJSON, ToJSON)
+
+newtype JobId = JobId Integer
+              deriving (Show, Eq, FromText, ToText, FromJSON, ToJSON)
+
+type ThermoprintAPI = "print" :> Capture "printerId" PrinterId :> ReqBody '[JSON] Printout :> Post '[JSON] JobId