HTTP.hs with slow execution

[Jens Petersen]

I think I found an issue with the HTTP.hs library when
making a short-lived non-persistent connection to a server
from a slower machine (i486).  I can also reproduce it by
running my program with strace or ltrace on a faster machine
(PIII).

My program just uses "simpleHTTP" to read a status page from
my ADSL router modem.  Here a code fragment:

getStatus ::  String -> String -> IO (Maybe (Status, Maybe PPPAddresses))
getStatus url auth =
    do
    resresp <-  getStatusPage url auth
    case resresp of
	 Left err -> print err >> return Nothing
	 Right resp -> return $ Just $ extractStatus $ rspBody resp

getStatusPage :: String -> String -> IO (Result Response)
getStatusPage url auth =
    case parseURI url of
	 Just uri ->
	   do
	   let defaultreq = Request uri GET [] ""
	       authval = "Basic " ++ encode auth
	       reqauth = insertHeader HdrAuthorization authval defaultreq 
	   simpleHTTP reqauth
	 Nothing ->
	   error $ "getStatusPage: Bad url: " ++ url

Below is some ltrace output.  I'm using ghc-5.02.3 on Linux.

Jens


__libc_start_main(0x080c8ff8, 1, 0xbffff794, 0x08049080, 0x080d9090 <unfinished ...>
__register_frame_info(0x080e5240, 0x080e548c, 0xbffff738, 0x0804959e, 0x08049080) = 0x080e5240
sysconf(2, 0x4000b0a6, 0x080e5344, 0x08048cbd, 0x4200aef8) = 100
times(0xbffff6d0, 0x4213030c, 0xbffff6d8, 0x420b5fdc, 0x420b5cb4) = 0x05b63152
strrchr("./adslstatus", '/')                      = "/adslstatus"
strcpy(0xbffff8ac, "adslstatus")                  = 0xbffff8ac
getenv("GHCRTS")                                  = NULL
malloc(72)                                        = 0x080e58d0
malloc(80)                                        = 0x080e5920
malloc(160)                                       = 0x080e5978
mmap(0x50000000, 0x00100000, 3, 34, -1)           = 0x50000000
__gmp_set_memory_functions(0x080ccce0, 0x080ccd08, 0x080ccd48, 64, 0xbffff6d0) = 0x4006e018
sigemptyset(0xbffff654, 0x400134c0, 0x400136d0, 0x40046518, 0x080d7ab4) = 0
sigaction(26, 0xbffff650, 0, 0x40046518, 0x080d7ab4) = 0
gettimeofday(0xbffff6c0, 0, 0, 0, 0)              = 0
setitimer(1, 0xbffff6d0, 0, 0, 0)                 = 0
malloc(8)                                         = 0x080e5a20
sigemptyset(0x080e54c0, 0x080daf01, 0, 20000, 0xbffff794) = 0
sigemptyset(0xbffff654, 0x40046500, 5, 0x08048598, 0x40013870) = 0
sigaction(2, 0xbffff650, 0xbffff5c0, 0x08048598, 0x40013870) = 0
siginterrupt(2, 1, 0xbffff5c0, 0x08048598, 0)     = 0
sigemptyset(0xbffff654, 1, 0xbffff5c0, 0x08048598, 0) = 0
sigaction(18, 0xbffff650, 0xbffff5c0, 0x08048598, 0) = 0
sigemptyset(0xbffff654, 0xbffff650, 0xbffff5c0, 0x08048598, 0) = 0
sigaction(8, 0xbffff650, 0xbffff5c0, 0x08048598, 0) = 0
times(0xbffff6c0, 0, 0, 0, 0)                     = 0x05b63152
malloc(16)                                        = 0x080e5a30
malloc(256)                                       = 0x080e5a48
re_set_syntax(45593, 0x080e56f0, 0x08070613, 0x080e071c, 0) = 0
re_compile_pattern(0x500bc448, 57, 0x500bc48c, 0x080e071c, 0) = 0
malloc(12)                                        = 0x080e5b50
re_match(0x500bc48c, 0x500bc408, 53, 0, 0x080e5b50) = 53
free(0x080e5b60)                                  = <void>
free(0x080e5be0)                                  = <void>
free(0x080e5b50)                                  = <void>
socket(2, 1, 6)                                   = 3
fcntl(3, 3, 6, 0x080df690, 0)                     = 2
fcntl(3, 4, 2050, 0x080df690, 0)                  = 0
setsockopt(3, 1, 9, 0x500bb008, 4)                = 0
gethostbyname("192.168.1.1")                      = 0x42132dc0
connect(3, 0x500bb028, 16, 0x080df690, 1)         = -1
__errno_location()                                = 0x42130b60
gettimeofday(0xbffff550, 0, 0, 0, 0)              = 0
select(4, 0xbffff600, 0xbffff580, 0, 0xbffff578)  = 1
getsockopt(3, 1, 4, 0x500bb040, 0x500bb04c)       = 0
getsockopt(3, 1, 4, 0x500bb058, 0x500bb064)       = 0
sendto(3, 0x500bb088, 143, 0, 0x500bb070)         = 143
recvfrom(3, 0x500bb120, 1000, 0, 0x500bb510)      = -1
gettimeofday(0xbffff550, 0, 0xbffff580, 0, 0xbffff578) = 0
select(4, 0xbffff600, 0xbffff580, 0, 0xbffff578)  = 1
recvfrom(3, 0x500bb120, 1000, 0, 0x500bb510)      = 1000
getpeername(3, 0x500bb534, 0x500bb54c, 0x080de970, 1) = 0
recvfrom(3, 0x500af008, 1000, 0, 0x500af3f8)      = 1000
getpeername(3, 0x500af41c, 0x500af434, 0x080dfda0, 1) = 0
recvfrom(3, 0x500af440, 1000, 0, 0x500af830)      = 1000
getpeername(3, 0x500af854, 0x500af86c, 0x080dfda0, 1) = 0
recvfrom(3, 0x500a3008, 1000, 0, 0x500a33f8)      = 1000
getpeername(3, 0x500a341c, 0x500a3434, 0x080dfda0, 1) = 0
recvfrom(3, 0x500a3440, 1000, 0, 0x500a3830)      = 1000
getpeername(3, 0x500a3854, 0x500a386c, 0x080dfda0, 1) = 0
recvfrom(3, 0x500a3878, 1000, 0, 0x500a3c68)      = 555
getpeername(3, 0x500a3c8c, 0x500a3ca4, 0x080dfda0, 1) = 0
recvfrom(3, 0x500a2008, 1000, 0, 0x500a23f8)      = 0
getpeername(3, 0x500a241c, 0x500a2434, 0x080dfda0, 1) = 0
shutdown(3, 1, 0x0805b85f, 0x080e018c, 1)         = 0
recvfrom(3, 0x500a2440, 1000, 0, 0x500a2830)      = 0
getpeername(3, 0x500a2854, 0x500a286c, 0x080e018c, 1) = -1
strerror(107)                                     = "Transport endpoint is not connec"...
getsockopt(3, 1, 4, 0x500a2878, 0x500a2884)       = 0
isatty(1)                                         = 1
fcntl(2, 3, 1215, 35387, 0x7f1c0300)              = 32769
write(2, "\nFail: ", 7
Fail: )                           = 7
write(2, "invalid argument\nAction: getPeer"..., 81invalid argument
Action: getPeerName
Reason: Transport endpoint is not connected
) = 81
write(2, "\n", 1
)                                 = 1
exit(1)                                           = <void>
__deregister_frame_info(0x080e5240, 0x4000b0a6, 0x4001386c, 0x40046538, 1) = 0
+++ exited (status 1) +++