Fix warnings revealed by v0.14.1 PS release

CHANGELOG.md

@@ -11,6 +11,8 @@ New features:
 Bugfixes:
 
 Other improvements:
+- Removed unused names found by v0.14.1 PureScript release (#112 by @JordanMartinez)
+- Installed dependencies directly imported into source code that were previously installed transitively (#112 by @JordanMartinez)
 
 ## [v6.0.0](https://github.com/purescript-contrib/purescript-parsing/releases/tag/v6.0.0) - 2021-02-26
 

spago.dhall

@@ -3,17 +3,22 @@
   [ "arrays"
   , "assert"
   , "console"
+  , "control"
   , "effect"
   , "either"
   , "foldable-traversable"
   , "identity"
   , "integers"
   , "lists"
+  , "math"
   , "maybe"
+  , "newtype"
   , "prelude"
   , "psci-support"
   , "strings"
+  , "tailrec"
   , "transformers"
+  , "tuples"
   , "unicode"
   ]
 , packages = ./packages.dhall

src/Text/Parsing/Parser.purs

@@ -103,9 +103,9 @@ derive newtype instance monadErrorParserT :: Monad m => MonadError ParseError (P
 
 instance altParserT :: Monad m => Alt (ParserT s m) where
   alt p1 p2 = (ParserT <<< ExceptT <<< StateT) \(s@(ParseState i p _)) -> do
-    Tuple e s'@(ParseState i' p' c') <- runStateT (runExceptT (unwrap p1)) (ParseState i p false)
+    Tuple e s'@(ParseState _ _ c') <- runStateT (runExceptT (unwrap p1)) (ParseState i p false)
     case e of
-      Left err
+      Left _
         | not c' -> runStateT (runExceptT (unwrap p2)) s
       _ -> pure (Tuple e s')
 

src/Text/Parsing/Parser/Combinators.purs

@@ -186,8 +186,8 @@ skipMany p = skipMany1 p <|> pure unit
 -- | Skip at least one instance of a phrase.
 skipMany1 :: forall s a m. Monad m => ParserT s m a -> ParserT s m Unit
 skipMany1 p = do
-  x <- p
-  xs <- skipMany p
+  _ <- p
+  _ <- skipMany p
   pure unit
 
 -- | Fail if the specified parser matches.

src/Text/Parsing/Parser/Indent.purs

@@ -48,6 +48,10 @@ module Text.Parsing.Indent
   , (<*/>)
   , indentOp
   , (<?/>)
+  , indentBrackets
+  , indentAngles
+  , indentBraces
+  , indentParens
   , Optional(..)
   ) where
 

src/Text/Parsing/Parser/Token.purs

@@ -56,7 +56,7 @@ token tokpos = do
   case List.uncons input of
     Nothing -> fail "Unexpected EOF"
     Just { head, tail } -> do
-      modify_ \(ParseState _ position _) ->
+      modify_ \(ParseState _ _ _) ->
         ParseState tail (tokpos head) true
       pure head
 

test/Main.purs

@@ -500,7 +500,7 @@ main = do
 
   case runParser "aa" p of
     Right _ -> assert' "error: ParseError expected!" false
-    Left (ParseError message pos) -> do
+    Left (ParseError message _) -> do
       let messageExpected = "context1 context2 Expected \"b\""
       assert' ("expected message: " <> messageExpected <> ", message: " <> message) (message == messageExpected)
       logShow messageExpected