diff options
| -rw-r--r-- | spec/src/Thermoprint/API.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/spec/src/Thermoprint/API.hs b/spec/src/Thermoprint/API.hs index e77f406..49cccf5 100644 --- a/spec/src/Thermoprint/API.hs +++ b/spec/src/Thermoprint/API.hs | |||
| @@ -2,6 +2,7 @@ | |||
| 2 | {-# LANGUAGE TypeOperators, DataKinds #-} | 2 | {-# LANGUAGE TypeOperators, DataKinds #-} |
| 3 | {-# LANGUAGE OverloadedStrings #-} | 3 | {-# LANGUAGE OverloadedStrings #-} |
| 4 | 4 | ||
| 5 | -- ^ A specification of an API for interacting with a set of printers | ||
| 5 | module Thermoprint.API | 6 | module Thermoprint.API |
| 6 | ( PrinterStatus(..) | 7 | ( PrinterStatus(..) |
| 7 | , JobStatus(..) | 8 | , JobStatus(..) |
| @@ -65,4 +66,5 @@ type ThermoprintAPI = "printers" :> Get '[JSON] (Set PrinterId) | |||
| 65 | ) | 66 | ) |
| 66 | 67 | ||
| 67 | thermoprintAPI :: Proxy ThermoprintAPI | 68 | thermoprintAPI :: Proxy ThermoprintAPI |
| 69 | -- ^ Servant occasionally needs an object of this type | ||
| 68 | thermoprintAPI = Proxy | 70 | thermoprintAPI = Proxy |