From: Mart Lubbers <mart@martlubbers.net>
Date: Wed, 2 Mar 2016 17:42:46 +0000 (+0100)
Subject: small cleanup
X-Git-Url: https://git.martlubbers.net/?a=commitdiff_plain;h=375d52815b5818c2eb7558b3df56759577fe695e;p=cc1516.git

small cleanup
---

diff --git a/lex.icl b/lex.icl
index 9a414cb..29d3c17 100644
--- 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 "/*")