haddock comments

diff --git a/Network/HTTP/Lucu.hs b/Network/HTTP/Lucu.hs
index 901ae001ed2a6e28d813883fd14401e46a3a3112..d45beaf81f196b06203aa9a1f4eb770ccb014b68 100644 (file)
--- a/Network/HTTP/Lucu.hs
+++ b/Network/HTTP/Lucu.hs
@@ -5,7 +5,7 @@
 --   [/Affinity for RESTafarians/] Lucu is specifically designed to be
 --   suitable for RESTful applications.
 --
 --   [/Affinity for RESTafarians/] Lucu is specifically designed to be
 --   suitable for RESTful applications.
 --

---   [/Full support of HTTP\/1.1/] Lucu supports request pipelining,
+--   [/Full support of HTTP/\//1.1/] Lucu supports request pipelining,

 --   chunked I\/O, ETag comparison and \"100 Continue\".
 --
 --   [/SSL connections/] Lucu can handle HTTP connections over Secure
 --   chunked I\/O, ETag comparison and \"100 Continue\".
 --
 --   [/SSL connections/] Lucu can handle HTTP connections over Secure

diff --git a/Network/HTTP/Lucu/Parser.hs b/Network/HTTP/Lucu/Parser.hs
index b31d4b89be473835df40f9a1dcf72d97d526b5db..ac1bf02734f0a09485eddf924002f8d4fc27b88e 100644 (file)
--- a/Network/HTTP/Lucu/Parser.hs
+++ b/Network/HTTP/Lucu/Parser.hs
@@ -23,7 +23,7 @@ atMost n v = ( (:) <$> v ⊛ atMost (n-1) v )
              <|>
              pure []
 
              <|>
              pure []
 

--- |@'finishOff' p@ is equivalent to @p '>>=' \a -> endOfInput '>>'
+-- |@'finishOff' p@ is equivalent to @p '>>=' \\a -> 'endOfInput' '>>'

 -- 'return' a@.
 finishOff ∷ Parser α → Parser α
 {-# INLINE finishOff #-}
 -- 'return' a@.
 finishOff ∷ Parser α → Parser α
 {-# INLINE finishOff #-}