From 39ae58ddbe3f59f99e4ce2e3d68cfdbccaaec202 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 17 Feb 2016 23:46:14 +0000 Subject: Tweaks to API to make servant happier --- spec/src/Thermoprint/API.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'spec/src/Thermoprint/API.hs') 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 ) -- cgit v1.2.3