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