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