0

Where can I find some actual examples of sendFile function (Network.Socket.SendFile lib). When I tried to do all by official manual, I got an error:

Exception: {file path}: withFd: resource vanished (Broken pipe)

is it some light-sense example of function usage?

Here is source:

withSocketsDo $ do                                                                                                                                              
                sock <- socket AF_INET Stream defaultProtocol                                                                                                           
                bindSocket sock (SockAddrInet 1212 0)
                sendFile sock "/some/path/to/file"
BenMorel
  • 34,448
  • 50
  • 182
  • 322
Lissomort
  • 103
  • 1
  • 1
  • 7
  • 8
    The `sock` you get from `bindSocket` is a listening socket. You need a client to connect to it, and then the server needs to `accept` the client, and *then* you can start sending data to the client. Currently, you are just mashing data out to nowhere, which results in an error. – kqr Dec 02 '13 at 12:40

1 Answers1

0

Here is some code that I got to work.

import Network.Socket.SendFile
import Network.Socket

main = withSocketsDo $ do
    sock <- socket AF_INET Stream defaultProtocol            
    addr <- inet_addr "127.0.0.1"
    connect sock (SockAddrInet 8080 addr)
    sendFile sock "some/path/to/file"

Here are the notes what is happening, and how to get it to work-

  1. You need to set up a server to accept the data. The simplest thing you can do (for testing purposes only) is use netcat. On my linux box, I started netcat by typing

    nc -l -p 8080

("-l" tells it to listen for a connection, -p specifies the port, which can be anything you have permission to bind to as long as it matches the port in the haskell program above)

  1. The withSocketsDo is only needed for Windows compatibility, but it doesn't hurt in other environments.

  2. You need to use connect instead of bind to connect to a server.

  3. Once you have compiled and runt he program, you should see the contents of the file in the terminal that started netcat (and the program will stop). If you run the haskell program without first starting the netcat server, you will get an error.

jamshidh
  • 12,002
  • 17
  • 31