@@ -62,10 +62,6 @@ spaces_ = constant mempty /$/ S.takeWhile isSpace
6262spaces1 :: SyntaxChar syn seq => syn ()
6363spaces1 = constant (opoint ' ') /$/ S.takeWhile1 isSpace
6464
65−-- | Accepts one or more spaces. Generates no output.
66−spaces1_ :: SyntaxChar syn seq => syn ()
67−spaces1_ = constant mempty /$/ S.takeWhile1 isSpace
68−
6965-- | Accepts a single newline. Generates a newline.
7066endOfLine :: SyntaxChar syn seq => syn ()
7167endOfLine = S.char '\n'