diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2024-10-03 18:23:50 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2024-10-03 18:23:50 -0600 |
| commit | 407e41489cc22fbf0518fd370530f8857b8c3ed0 (patch) | |
| tree | 8c5f3fceb7c9e083033e06c818556eba1dcf9a06 /src/Language/Fiddle/Tokenizer.hs | |
| parent | 72eeba5fd6178409b4aab5eb8dbfaf4460f6841c (diff) | |
| download | fiddle-407e41489cc22fbf0518fd370530f8857b8c3ed0.tar.gz fiddle-407e41489cc22fbf0518fd370530f8857b8c3ed0.tar.bz2 fiddle-407e41489cc22fbf0518fd370530f8857b8c3ed0.zip | |
Clean up warnings and remove unused files.
Diffstat (limited to 'src/Language/Fiddle/Tokenizer.hs')
| -rw-r--r-- | src/Language/Fiddle/Tokenizer.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/Language/Fiddle/Tokenizer.hs b/src/Language/Fiddle/Tokenizer.hs index 007009f..d2e5cf8 100644 --- a/src/Language/Fiddle/Tokenizer.hs +++ b/src/Language/Fiddle/Tokenizer.hs @@ -8,7 +8,6 @@ import Data.Text (Text) import qualified Data.Text import Language.Fiddle.Types import Text.Parsec -import qualified Text.Parsec data T = KWAssertPos @@ -111,7 +110,7 @@ parseToken = spaces *> tok parseToken' <* spaces ident -> TokIdent ident parseString = fmap (TokString . Data.Text.pack . concat) $ do - char '"' + _ <- char '"' manyTill ( do c <- anyChar @@ -126,12 +125,12 @@ parseToken = spaces *> tok parseToken' <* spaces parseComment = try ( do - string "//" + _ <- string "//" TokComment . Data.Text.pack <$> manyTill anyChar (char '\n') ) <|> try ( do - string "/**" + _ <- string "/**" TokDocComment . Data.Text.pack <$> manyTill anyChar (try $ string "*/") ) |