small cleanup

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
-from StdFunc import o
+from StdFunc import o, const
 import StdBool
 import StdList
 import StdChar
@@ -79,8 +79,8 @@ lexToken =
                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 "/*")