repositories
/
cc1516.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
small cleanup
[cc1516.git]
/
lex.icl
diff --git
a/lex.icl
b/lex.icl
index
9a414cb
..
29d3c17
100644
(file)
--- a/
lex.icl
+++ b/
lex.icl
@@
-2,7
+2,7
@@
implementation module lex
import Control.Monad, Control.Applicative
import Data.Either, Data.Func, Data.Maybe, Data.Functor
import Control.Monad, Control.Applicative
import Data.Either, Data.Func, Data.Maybe, Data.Functor
-from StdFunc import o
+from StdFunc import o
, const
import StdBool
import StdList
import StdChar
import StdBool
import StdList
import StdChar
@@
-79,8
+79,8
@@
lexToken =
lexUntilNL = top until (eof <|> (item '\n' >>| pure Void))
lexComment :: Parser Char LexItem
lexUntilNL = top until (eof <|> (item '\n' >>| pure Void))
lexComment :: Parser Char LexItem
- lexComment = list (fromString "//") >>| lexUntilNL
- >>
= \chars->
pure LexNL
+
lexComment = list (fromString "//") >>| lexUntilNL
+ >>
|
pure LexNL
lexBlockComment :: Parser Char LexItem
lexBlockComment = list (fromString "/*")
lexBlockComment :: Parser Char LexItem
lexBlockComment = list (fromString "/*")