parseFastCGIRecord :: Socket -> IO String
parseFastCGIRecord sock = do
    s <- recv sock 8
    s <- recv sock 100000
    return s
parseFastCGIRecord :: Socket -> IO String
parseFastCGIRecord sock = do
    s <- recv sock 8
    s <- recv sock 100000
    return s
parseFastCGIRecord sock = do
    s <- recv sock 8
    s <- recv sock 100000
    return s