X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=Lucu.git;a=blobdiff_plain;f=Network%2FHTTP%2FLucu%2FParser.hs;h=ac1bf02734f0a09485eddf924002f8d4fc27b88e;hp=b31d4b89be473835df40f9a1dcf72d97d526b5db;hb=7eed467cbc7ed48c1b88766f0c7eb6bb77be09ef;hpb=e49345ce5e6c0190c826d130d51ec42ee9f09a67 diff --git a/Network/HTTP/Lucu/Parser.hs b/Network/HTTP/Lucu/Parser.hs index b31d4b8..ac1bf02 100644 --- 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 [] --- |@'finishOff' p@ is equivalent to @p '>>=' \a -> endOfInput '>>' +-- |@'finishOff' p@ is equivalent to @p '>>=' \\a -> 'endOfInput' '>>' -- 'return' a@. finishOff ∷ Parser α → Parser α {-# INLINE finishOff #-}