delete_server.rb

require 'sinatra'
require 'pp'

delete '/' do
  "you DELETED: #{request.body.string}"
end

put '/' do
  "you PUTTED: #{request.body.string}"
end

delete_test.hs

 {-# LANGUAGE OverloadedStrings #-}
 import System.IO.Streams (InputStream, OutputStream, stdout)
 import qualified System.IO.Streams as Streams
 import qualified Data.ByteString as S
 import Network.Http.Client

 main :: IO ()
 main = do
     withConnection (openConnection "localhost" 4567) $ \c -> do
      stream <- Streams.fromLazyByteString "SERVER SHOULD GET THIS BODY"

      q <- buildRequest $ do
          http DELETE "/" -- no body gets sent
          --http PUT "/" -- body gets sent
          setAccept "text/html"

      sendRequest c q $ inputStreamBody stream

      receiveResponse c debugHandler