smsaero 0.6.1 → 0.6.2

raw patch · 3 files changed

+6/−15 lines, 3 files

Files

CHANGELOG.md +4/−0
smsaero.cabal +1/−1
src/SMSAero/API.hs +1/−14

CHANGELOG.md view

@@ -1,3 +1,7 @@+0.6.2+---+* Get rid of `SmsAeroJson` (they have finally fixed their `Content-Type`!). See [5a7539e](https://github.com/GetShopTV/smsaero/commit/5a7539edff7f274d39c58ce02f19bcb14bbc05b5).+ 0.6.1 --- * Fix `SmsAeroBalance` `ToJSON`/`FromJSON` instances.

smsaero.cabal view

@@ -1,5 +1,5 @@ name:                smsaero-version:             0.6.1+version:             0.6.2 synopsis:            SMSAero API and HTTP client based on servant library. description:         Please see README.md homepage:            https://github.com/GetShopTV/smsaero

src/SMSAero/API.hs view

@@ -29,7 +29,6 @@   PhoneApi,   BlacklistApi,   -- * Combinators-  SmsAeroJson,   AnswerJson,   RequireAuth,   RequiredQueryParam,@@ -78,18 +77,6 @@  import SMSAero.Types --- | Content type for SMSAero JSON answer (it has JSON body but "text/plain" Content-Type).-data SmsAeroJson--instance Accept SmsAeroJson where-  contentType _ = contentType (Proxy :: Proxy PlainText)--instance FromJSON a => MimeUnrender SmsAeroJson a where-  mimeUnrender _ = mimeUnrender (Proxy :: Proxy JSON)--instance ToJSON a => MimeRender SmsAeroJson a where-  mimeRender _ = mimeRender (Proxy :: Proxy JSON)- -- | Like 'QueryParam', but always required. data RequiredQueryParam (sym :: Symbol) a @@ -156,7 +143,7 @@       params' = _params action ++ [answerP]  -- | Regular SMSAero GET API.-type SmsAeroGet a = Get '[SmsAeroJson] (SmsAeroResponse a)+type SmsAeroGet a = Get '[JSON] (SmsAeroResponse a)  -- | SMSAero API. type SMSAeroAPI = RequireAuth :> AnswerJson :>