From 375d52815b5818c2eb7558b3df56759577fe695e Mon Sep 17 00:00:00 2001
From: Mart Lubbers <mart@martlubbers.net>
Date: Wed, 2 Mar 2016 18:42:46 +0100
Subject: [PATCH] small cleanup

---
 lex.icl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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 "/*") 
-- 
2.20.1