repositories
/
cc1516.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6b3981f
)
small cleanup
author
Mart Lubbers
<mart@martlubbers.net>
Wed, 2 Mar 2016 17:42:46 +0000
(18:42 +0100)
committer
Mart Lubbers
<mart@martlubbers.net>
Wed, 2 Mar 2016 17:42:46 +0000
(18:42 +0100)
lex.icl
patch
|
blob
|
history
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 "/*")