diff options
Diffstat (limited to 'spec')
| -rw-r--r-- | spec/src/Thermoprint/API.hs | 8 | 
1 files changed, 2 insertions, 6 deletions
| diff --git a/spec/src/Thermoprint/API.hs b/spec/src/Thermoprint/API.hs index d722903..ac6acbe 100644 --- a/spec/src/Thermoprint/API.hs +++ b/spec/src/Thermoprint/API.hs | |||
| @@ -33,11 +33,6 @@ data PrinterStatus = Busy JobId | |||
| 33 | | Available | 33 | | Available | 
| 34 | deriving (Generic, Show, FromJSON, ToJSON) | 34 | deriving (Generic, Show, FromJSON, ToJSON) | 
| 35 | 35 | ||
| 36 | data JobInfo = JobInfo | ||
| 37 | { jobPrinter :: PrinterId | ||
| 38 | , jobStatus :: JobStatus | ||
| 39 | } | ||
| 40 | |||
| 41 | data JobStatus = Queued | 36 | data JobStatus = Queued | 
| 42 | | Printing | 37 | | Printing | 
| 43 | | Done | 38 | | Done | 
| @@ -57,7 +52,8 @@ type ThermoprintAPI = "printers" :> Get '[JSON] (Set PrinterId) | |||
| 57 | ) | 52 | ) | 
| 58 | :<|> "job" :> Capture "jobId" JobId :> ( | 53 | :<|> "job" :> Capture "jobId" JobId :> ( | 
| 59 | Get '[JSON] Printout | 54 | Get '[JSON] Printout | 
| 60 | :<|> "status" :> Get '[JSON] JobInfo | 55 | :<|> "status" :> Get '[JSON] JobStatus | 
| 56 | :<|> "printer" :> Get '[JSON] PrinterId | ||
| 61 | :<|> Delete '[] () | 57 | :<|> Delete '[] () | 
| 62 | ) | 58 | ) | 
| 63 | :<|> "drafts" :> ( | 59 | :<|> "drafts" :> ( | 
