From 970b658926e4a683f6c557539ddf750803cabd44 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?L=C3=A9ana=20=E6=B1=9F?= Date: Wed, 24 Sep 2025 22:32:35 +0800 Subject: [PATCH] chore(lexer): clean up --- src/Lexer.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/src/Lexer.hs b/src/Lexer.hs index 7874863..426a7ff 100644 --- a/src/Lexer.hs +++ b/src/Lexer.hs @@ -10,7 +10,7 @@ import Control.Monad (mfilter, void) import Data.Functor (($>)) import Data.Text (Text, intercalate) import Data.Text qualified as Text -import GHC.Unicode (isAlpha, isAlphaNum, isControl, isPrint, isSpace, isUpper) +import GHC.Unicode (isAlphaNum, isControl, isPrint, isSpace, isUpper) import ParserMonad (Parser, initialParserState) import Text.Parsec import Text.Parsec qualified as Parsec @@ -66,9 +66,6 @@ data Token located :: Parser a -> Parser (SourcePos, a) located p = (,) <$> getPosition <*> p -startPosition :: Parser a -> Parser SourcePos -startPosition = fmap fst . located - tokenise :: [Parser a] -> Parser [(SourcePos, a)] tokenise = sequence . map located