[Haskell] I have some issue with XML-RPC on Windows?

[Krassimir Krustev]

On Windows, trying example from XML-RPC:

C:\Program Files\Apache Group\Apache2\cgi-bin>runhaskell simple_client.hs
simple_client.hs: user error (Error calling examples.add: Lexical error in  file
 string input  at line 7 col 56:
  unexpected EOF within </...>)

C:\Program Files\Apache Group\Apache2\cgi-bin>type input.xml
<?xml version="1.0"?>
<methodCall>
        <methodName>examples.add</methodName>
        <params>
                <param>
                        <value><i4>3</i4></value>
                </param>
                <param>
                        <value><i4>4</i4></value>
                </param>
        </params>
</methodCall>

C:\Program Files\Apache Group\Apache2\cgi-bin>runhaskell
simple_server.hs < input.xml
Server: Haskell XmlRpcServer/0.1
Content-Type: text/xml
Content-Length: 150

<?xml version='1.0' ?>
<methodResponse
  ><params
    ><param
      ><value
        ><int
          >7</int></value></param></params></methodResponse>

I do not get this behaviour if I paste the input to console.
Presumably the failed call from from simple_client did something
similar

C:\Program Files\Apache Group\Apache2\cgi-bin>runhaskell simple_server.hs
<?xml version="1.0"?>
<methodCall>
        <methodName>examples.add</methodName>
        <params>
                <param>
                        <value><i4>3</i4></value>
                </param>
                <param>
                        <value><i4>4</i4></value>
                </param>
        </params>
</methodCall>^Z
Server: Haskell XmlRpcServer/0.1
Content-Type: text/xml
Content-Length: 486

<?xml version='1.0' ?>
<methodResponse
  ><fault
    ><value
      ><struct
        ><member
          ><name
            >faultCode</name
          ><value
            ><int
              >0</int></value></member
        ><member
          ><name
            >faultString</name
          ><value
            ><string
              >Lexical error in  file string input  at line 12 col 14:
  unexpected EOF between tags</string></value></member></struct></value></fault>
</methodResponse>