Minimal socket input-stream abstraction w/ single pushback & consumed byte-count

This abstraction is inspired by io-streams but is tuned for low-overhead

Convert an existing Socket into a SockStream

Wrapper that creates TCP/IP IPv4 SocketStream and connects to SockAddr created with getSockAddr

If provided, the Maybe SockAddr argument allows to locally bind the socket to a specific source address.

Access underlying Socket

Access SockStream counter id

Each created SockStream wrapper has an unique counter id value associated

Read data from stream.

Note: Returns empty string on EOF. It's often better to use ssRead' instead.

Version of ssRead which does not consume the data returned

That is, ssPeek ss is semantically equivalent to do { b <- ssRead ss; ssUnRead b ss; return b}.

ssPeek is idempotent, i.e. ssPeek ss == ssPeek ss >> ssPeek ss

May return empty string if no data has been buffered yet

Version of ssRead that throws

Read exactly n bytes from SocketStream; throws exception if connection is closed

Push-back read data into SockStream

Write data out to socket (uses sendAll internally)

Returns length of data consumed (i.e. w/o ssUnRead data)

Returns length of data written to stream

HTTP status code

RFC2616 sec 5.1.1 Method

transfer-encoding/content-length information

Construct general HTTP/1.1 request.

Construct HTTP/1.1 GET request. See mkHttp11Req for constructing more general requests.

Receive full HTTP response

Receive/consume HTTP response from SockStream

If no exception occured during recvHttpHeaders the SockStream is left at the beginning of the (potentially empty) HTTP response body.

Extract information from the header lines as returned by recvHttpHeaders

returns: (status-code, close-conn, Just content-length or Nothing (i.e. chunked))

Receive single HTTP chunk

Construct IPv4 SockAddr

Split HTTP URL into (hostname,port,url-path)

Return the time as the number of seconds (with up to microsecond precision) since the Epoch, 1970-01-01 00:00:00 +0000 (UTC).

This is a faster implementation the code below useful for benchmarking purposes.

import Data.Time.Clock.POSIX (getPOSIXTime)

getPOSIXTimeSecs :: IO Double
getPOSIXTimeSecs = fmap realToFrac getPOSIXTime

Note: this function returns NaN in case the underlying gettimeofday(2) call fails.

Return the time as the number of microseconds since the Epoch, 1970-01-01 00:00:00 +0000 (UTC).

Note: this function returns 0 in case the underlying gettimeofday(2) call fails.

See also getPOSIXTimeSecs