-- If we haven't received anything in fifteen minutes, return back
-- to the calling function. This should only happen in the case of
-- an error, and our caller should be prepared to handle it.
-- If we haven't received anything in fifteen minutes, return back
-- to the calling function. This should only happen in the case of
-- an error, and our caller should be prepared to handle it.
Just line -> do
-- If the recv didn't timeout, proceed normally.
let new_buffer = line : buffer
Just line -> do
-- If the recv didn't timeout, proceed normally.
let new_buffer = line : buffer