import qualified Data.ByteString as BS
import Data.Map (Map)
import qualified Data.Map as M
+import qualified Data.Map.Unicode as M
import Data.Monoid
import Data.Monoid.Unicode
import Network.HTTP.Lucu.Parser.Http
= case getHeaders a of
Headers m → M.lookup key m
+ hasHeader ∷ CIAscii → a → Bool
+ {-# INLINE hasHeader #-}
+ hasHeader key a
+ = case getHeaders a of
+ Headers m → key M.∈ m
+
getCIHeader ∷ CIAscii → a → Maybe CIAscii
{-# INLINE getCIHeader #-}
getCIHeader key a
{-# INLINE content #-}
content = A.unsafeFromByteString
<$>
- takeWhile1 (\c → ((¬) (isSPHT c)) ∧ isText c)
+ takeWhile1 (\c → (¬) (isSPHT c) ∧ isText c)
joinValues ∷ [Ascii] → Ascii
{-# INLINE joinValues #-}