Hello Scott,
Wednesday, April 4, 2007, 1:54:27 AM, you wrote:
> Match the Parsec parser against the input as soon as a match
> is available, but fail if the match is unavailable after a timeout
> value if no further data is available on the socket.
one possible solution: use Streams library and establish a stream
transformer that adds an error call on timeout. something like this:
data StreamWithTimeout s = StreamWithTimeout s Timeout
instance Stream s => Stream (StreamWithTimeout s) where
vGetChar (StreamWithTimeout s t) = do
timeout t (vGetChar s)
(error "Timed out!")
then you can use standard vGetContents lazy string reading in order to
get expected behaviour
or, even simple, you can make your own variant of hGetContents which
adds a timeout checks before each next call to hGetChar or hGetBuf
--
Best regards,
Bulat mailto:[EMAIL PROTECTED]
_______________________________________________
Haskell-Cafe mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/haskell-cafe
