a484ca0a95ec2c6769a3f0a4d5cfb02e52ecd3c64b6ff16732da4dec7994ba0f

Download raw

Created: 2019-10-12 06:53:48.403379 UTC

Size: 1162

Preview (limited to 512 bytes)

"{-# LANGUAGE BangPatterns #-}\n\nmodule Main (main) where\n\nimport Control.Applicative\nimport Control.Exception (bracket)\nimport Control.Monad (forM_)\nimport Data.Attoparsec.ByteString\nimport RFC2616\nimport System.Environment\nimport System.IO\nimport qualified Data.ByteString.Char8 as B\n\nrefill :: Handle -> IO B.ByteString\nrefill h = B.hGet h (80*1024)\n\nlisty :: FilePath -> Handle -> IO ()\nlisty file h = do\n r <- parseWith (refill h) (many request) =<< refill h\n case r of\n Fail _ _ msg -> hPutStrLn stderr "


A service provided by FP Complete