git.iko.soy/syntax
on master help sign in
Remove badly-behaved spaces1_.
ca19f14Paweł Nowak
Data/Syntax/Char.hs−4
compare with master
unifiedsplit
@@ -62,10 +62,6 @@ spaces_ = constant mempty /$/ S.takeWhile isSpace
62spaces1 :: SyntaxChar syn seq => syn ()
62spaces1 :: SyntaxChar syn seq => syn ()
63spaces1 = constant (opoint ' ') /$/ S.takeWhile1 isSpace
63spaces1 = constant (opoint ' ') /$/ S.takeWhile1 isSpace
64
64
65−-- | Accepts one or more spaces. Generates no output.
66−spaces1_ :: SyntaxChar syn seq => syn ()
67−spaces1_ = constant mempty /$/ S.takeWhile1 isSpace
68−
69-- | Accepts a single newline. Generates a newline.
65-- | Accepts a single newline. Generates a newline.
70endOfLine :: SyntaxChar syn seq => syn ()
66endOfLine :: SyntaxChar syn seq => syn ()
71endOfLine = S.char '\n'
67endOfLine = S.char '\n'