eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Don't try to parse the empty response body for Delete

Browse source
This commit is contained in:
Timo von Holtz 2015-01-30 17:05:01 +11:00
parent 83e46f41ef
commit 56e68bc737
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Servant/Client.hs
View file

@ -13,6 +13,7 @@ module Servant.Client
, module Servant.Common.BaseUrl , module Servant.Common.BaseUrl
) where ) where
import Control.Monad
import Control.Monad.Trans.Either import Control.Monad.Trans.Either
import Data.Aeson import Data.Aeson
import Data.ByteString.Lazy (ByteString) import Data.ByteString.Lazy (ByteString)
@ -108,7 +109,7 @@ instance HasClient Delete where
type Client Delete = BaseUrl -> EitherT String IO () type Client Delete = BaseUrl -> EitherT String IO ()
clientWithRoute Proxy req host = clientWithRoute Proxy req host =
performRequestJSON H.methodDelete req 204 host void $ performRequest H.methodDelete req (== 204) host
-- | If you have a 'Get' endpoint in your API, the client -- | If you have a 'Get' endpoint in your API, the client
-- side querying function that is created when calling 'client' -- side querying function that is created when calling 'client'