1 files changed, 4 insertions, 4 deletions

diff --git a/spec/src/Thermoprint/API.hs b/spec/src/Thermoprint/API.hs
index f5b7bee..d854e73 100644
--- a/spec/src/Thermoprint/API.hs
+++ b/spec/src/Thermoprint/API.hs
@@ -83,7 +83,7 @@ instance ToText UTCTime where
 
 type ThermoprintAPI = "printers" :> Get '[JSON] (Map PrinterId PrinterStatus)
                       :<|> "jobs" :> (
-                        QueryParam "printer" PrinterId
+                        QueryParam "printer" PrinterId -- TODO: this is silly, introduce data Range a = Range { rMin :: a, rMax :: a }
                           :> QueryParam "min" JobId
                           :> QueryParam "max" JobId
                           :> QueryParam "minTime" UTCTime
@@ -94,16 +94,16 @@ type ThermoprintAPI = "printers" :> Get '[JSON] (Map PrinterId PrinterStatus)
                       :<|> "job" :> Capture "jobId" JobId :> (
                         Get '[JSON] Printout
                         :<|> "status" :> Get '[JSON] JobStatus
-                        :<|> Delete '[] ()
+                        :<|> Delete '[PlainText] ()
                       )
                       :<|> "drafts" :> (
                         Get '[JSON] (Map DraftId (Maybe DraftTitle))
                         :<|> QueryParam "title" DraftTitle :> ReqBody '[JSON] Printout :> Post '[JSON] DraftId
                       )
                       :<|> "draft" :> Capture "draftId" DraftId :> (
-                        QueryParam "title" DraftTitle :> ReqBody '[JSON] Printout :> Put '[] ()
+                        QueryParam "title" DraftTitle :> ReqBody '[JSON] Printout :> Put '[PlainText] ()
                         :<|> Get '[JSON] (Maybe DraftTitle, Printout)
-                        :<|> Delete '[] ()
+                        :<|> Delete '[PlainText] ()
                         :<|> QueryParam "printer" PrinterId :> Post '[JSON] JobId
                       )