From 407e41489cc22fbf0518fd370530f8857b8c3ed0 Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Thu, 3 Oct 2024 18:23:50 -0600
Subject: Clean up warnings and remove unused files.

---
 src/Language/Fiddle/Tokenizer.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'src/Language/Fiddle/Tokenizer.hs')

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 "*/")
           )
 
-- 
cgit