8d698a96851656e633ca45a25eca0b5f31de0e10633b0b7a2a6683e7f3f62eef

Download raw

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

Size: 1685

Preview (limited to 512 bytes)

"{-# LANGUAGE OverloadedStrings #-}\n{-# OPTIONS_GHC -fno-warn-missing-signatures #-}\nmodule HeadersText (headers) where\n\nimport Common (pathTo, rechunkT)\nimport Control.Applicative\nimport Criterion.Main (bench, bgroup, nf)\nimport Criterion.Types (Benchmark)\nimport Data.Char (isSpace)\nimport qualified Data.Attoparsec.Text as T\nimport qualified Data.Attoparsec.Text.Lazy as TL\nimport qualified Data.Text.IO as T\n\nheader = do\n name <- T.takeWhile1 (T.inClass \"a-zA-Z0-9_-\") <* T.char ':' <* T.skipSpace\n body <- "


A service provided by FP Complete