Better name-rewriting engine

[Lucu.git] / Network / HTTP / Lucu / Headers.hs

diff --git a/Network/HTTP/Lucu/Headers.hs b/Network/HTTP/Lucu/Headers.hs
index 5e48ee4bd52ad8a1edc1c5a3c9ede9b2b687f100..80b9b1339501d95a08c80511645e3603a5b1d9ea 100644 (file)
--- a/Network/HTTP/Lucu/Headers.hs
+++ b/Network/HTTP/Lucu/Headers.hs
@@ -3,6 +3,7 @@
   , OverloadedStrings
   , UnicodeSyntax
   #-}
+-- |An internal module for HTTP headers.
 module Network.HTTP.Lucu.Headers
     ( Headers
     , HasHeaders(..)
@@ -12,7 +13,7 @@ module Network.HTTP.Lucu.Headers
     , toHeaders
     , fromHeaders
 
-    , headersP
+    , headers
     , printHeaders
     )
     where
@@ -116,11 +117,11 @@ fromHeaders (Headers m) = M.toList m
   field-value の先頭および末尾にある LWS は全て削除され、それ以外の
   LWS は單一の SP に變換される。
 -}
-headersP ∷ Parser Headers
-{-# INLINEABLE headersP #-}
-headersP = do xs ← P.many header
-              crlf
-              return $ toHeaders xs
+headers ∷ Parser Headers
+{-# INLINEABLE headers #-}
+headers = do xs ← P.many header
+             crlf
+             return $ toHeaders xs
     where
       header ∷ Parser (CIAscii, Ascii)
       header = do name ← A.toCIAscii <$> token