generalize error message of annotate

byteverse · Sep 19, 2019 · b3a9af3 · b3a9af3
1 parent 2493d72
commit b3a9af3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Data/Bytes/Parser.hs b/src/Data/Bytes/Parser.hs
@@ -149,12 +149,12 @@ bytes e !expected = Parser
 infix 0 <?>
 
 -- | Infix version of 'annotate'.
-(<?>) :: Parser e s a -> e -> Parser e s a
+(<?>) :: Parser x s a -> e -> Parser e s a
 (<?>) = annotate
 
 -- | Annotate a parser. If the parser fails, the error will
 --   be returned.
-annotate :: Parser e s a -> e -> Parser e s a
+annotate :: Parser x s a -> e -> Parser e s a
 annotate p e = p `orElse` fail e
 
 -- | Consumes and returns the next byte in the input.