From def481d234ce5e1671d9faaa539477de8cd14640 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Sun, 8 Jan 2023 22:44:44 -0700 Subject: Parser is able to parse the goal file. --- src/Language/Fiddle/Tokenizer.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/Language/Fiddle/Tokenizer.hs') diff --git a/src/Language/Fiddle/Tokenizer.hs b/src/Language/Fiddle/Tokenizer.hs index ec41042..4e06b92 100644 --- a/src/Language/Fiddle/Tokenizer.hs +++ b/src/Language/Fiddle/Tokenizer.hs @@ -108,3 +108,6 @@ parseToken = spaces *> tok parseToken' <* spaces tokenize :: String -> Text -> Either ParseError [Token SourceSpan] tokenize = Text.Parsec.runParser (many parseToken <* eof) () + +tokenType :: Token SourceSpan -> T +tokenType (Token t _) = t -- cgit