Add lexeme parser

1 files changed, 19 insertions, 0 deletions

diff --git a/src/Language/SimpleShell/Parser.hs b/src/Language/SimpleShell/Parser.hs
index fdbeaf9..1f65456 100644
--- a/src/Language/SimpleShell/Parser.hs
+++ b/src/Language/SimpleShell/Parser.hs
@@ -1,5 +1,8 @@
+{-# LANGUAGE OverloadedStrings #-}
+
 module Language.SimpleShell.Parser
   ( Parser
+  , lexeme
   , lookupVar
   , lookupFun
   , initContext
@@ -18,6 +21,13 @@ import Data.Text (Text, unpack)
 import Data.Void (Void)
 import Text.Megaparsec (Parsec)
 import qualified Text.Megaparsec as MP (parseTest)
+import Text.Megaparsec.Char (space1)
+import qualified Text.Megaparsec.Char.Lexer as L
+  ( lexeme
+  , space
+  , skipLineComment
+  , skipBlockComment
+  )
 
 
 type Parser = ReaderT Context (Parsec Void Text)
@@ -34,6 +44,15 @@ initContext = Context
   }
 
 
+sc :: Parser ()
+sc = L.space
+  space1
+  (L.skipLineComment "//")
+  (L.skipBlockComment "/*" "*/")
+
+lexeme = L.lexeme sc
+
+
 lookupVar :: VarName -> Parser SimpleType
 lookupVar varname = do
   mt <- Map.lookup varname . ctxVars <$> ask