@@ -76,6 +76,9 @@ p <?> msg =
7676 (Left _) -> Left (st, [msg])
7777 ok -> ok
7878
79+
80+-- * Things like in @Parsec.Char@
81+
7982-- |character parser
8083satisfy :: (Char -> Bool) -> Parser C.ByteString Char
8184satisfy f =
@@ -91,6 +94,9 @@ satisfy f =
9194pChar :: Char -> Parser C.ByteString Char
9295pChar c = satisfy (== c) <?> [c]
9396
97+
98+-- * Things vaguely like those in @Parsec.Combinator@ (and @Parsec.Prim@)
99+
94100-- |detect 'end of file'
95101pEOF :: Parser C.ByteString ()
96102pEOF =
@@ -142,6 +148,9 @@ notEmpty (Parser p) =
142148 else o
143149 x -> x
144150
151+
152+-- * Running parsers
153+
145154-- |'parse' - run a parser
146155parse :: Parser state a -> state -> Either (ParserError state) (a, state)
147156parse p s =