invokeWS Injecting \r\n Character Into SOAPAction Header

I adapted the following code from the example given here as the web service from the example is no longer operational.

{-# LANGUAGE OverloadedStrings #-}

module Lib
    ( someFunc
    ) where

import           Control.Applicative
import           Data.Text (Text)
import qualified Data.Text as T

import           Network.SOAP (invokeWS, Transport, ResponseParser(CursorParser))
import           Network.SOAP.Transport.HTTP (initTransportWithM)
import           Network.HTTP.Client (defaultManagerSettings)
import           Network.SOAP.Parsing.Cursor (Dict, dictBy, readT, readC)
import           Text.XML (Name)
import           Text.XML.Cursor hiding (element)
import           Text.XML.Writer (elementA, element)

someFunc :: IO ()
someFunc = do
    transport <- initTransportWithM defaultManagerSettings "http://www.webservicex.net/currencyconvertor.asmx" pure pure
    response <- getConversionRate transport (T.pack "USD") (T.pack "NOK")
    print response

getConversionRate :: Transport -> Text -> Text -> IO Dict
getConversionRate t c1 c2 = invokeWS t url () body parser
  where
    url = "http://www.webservicex.net/ConversionRate"
    body = element "web:ConversionRate" $ do
           element "web:FromCurrency" c1
           element "web:ToCurrency" c2

    parser = dictBy "ConversionRateResponse"

When running the service gives back an error:

soap-test-exe: SOAPFault {faultCode = "soap:Client", faultString = "System.Web.Services.Protocols.SoapException: Server did not recognize the value of HTTP Header SOAPAction: http://www.webservicex.net/ConversionRate.\r\n at System.Web.Services.Protocols.Soap11ServerProtocolHelper.RouteRequest()\r\n at System.Web.Services.Protocols.SoapServerProtocol.RouteRequest(SoapServerMessage message)\r\n at System.Web.Services.Protocols.SoapServerProtocol.Initialize()\r\n at System.Web.Services.Protocols.ServerProtocolFactory.Create(Type type, HttpContext context, HttpRequest request, HttpResponse response, Boolean& abortProcessing)", faultDetail = ""}

Using Wireshark to verify what data is actually being sent, there are \r\n characters being injected. They're being injected in the entire request, so apparently HTTP doesn't care. But the SOAPAction header seems to care.

Comments (12)