Define a parser for line comments.

facet-lang · Oct 20, 2020 · be6626c · be6626c
1 parent e5b1d18
commit be6626c
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/Facet/Lexer.hs b/src/Facet/Lexer.hs
@@ -3,8 +3,10 @@ module Facet.Lexer
 , TokenKind(..)
 ) where
 
+import Control.Applicative (Alternative(..))
 import Facet.Name
 import Facet.Span
+import Text.Parser.Char
 
 -- Lexer
 
@@ -25,3 +27,9 @@ data TokenKind
   | MIdent MName
   | EIdent EName
   | TIdent TName
+
+
+kind_ :: CharParsing p => p TokenKind
+kind_ = comment
+  where
+  comment = Comment <$ char '#' <*> many (satisfy (/= '\n'))