Changeset 6067 for src/Pugs/Lexer.hs

Timestamp:

08/04/05 15:41:44 (3 years ago)

Author:

scook0

svk:copy_cache_prev:

8204

Message:

* Initial stab at some Haddock docs for Parser.hs
* Formatted CodeGen?.hs' poem for Haddock :-)

Files:

• src/Pugs/Lexer.hs (modified) (2 diffs)

src/Pugs/Lexer.hs

@@ -94 +94 @@
     return (c:cs)
 
+{-|
+Match any amount of whitespace (not including newlines), followed by a newline
+(as matched by 'ruleEndOfLine').
+-}
 ruleWhiteSpaceLine :: GenParser Char st ()
 ruleWhiteSpaceLine = do
@@ -99 +103 @@
     ruleEndOfLine
 
+{-|
+Match either a single newline, or EOF (which constitutes the termination of a
+line anyway).
+-}
 ruleEndOfLine :: GenParser Char st ()
 ruleEndOfLine = choice [ do { char '\n'; return () }, eof ]