Fix bad state propagation in many combinator implementation.

Author: natefaubion

spago.dhall

@@ -21,7 +21,6 @@
   , "ordered-collections"
   , "partial"
   , "prelude"
-  , "psci-support"
   , "st"
   , "strings"
   , "transformers"

src/PureScript/CST/Parser/Monad.purs

@@ -219,7 +219,7 @@ many (Parser p) = Parser
                 if state3.consumed then
                   runFn2 resume state3 error
                 else
-                  runFn2 done state3 (Array.reverse (List.toUnfoldable acc))
+                  runFn2 done state2 (Array.reverse (List.toUnfoldable acc))
             )
             ( mkFn2 \state3 value ->
                 runFn2 go (List.Cons value acc) state3

test/Main.purs

@@ -110,3 +110,13 @@ main = do
             true
       _ ->
         false
+
+  assertParse "Failed mismatched parens"
+    """
+    wat (bad
+    """
+    case _ of
+      (ParseFailed _ :: RecoveredParserResult Expr) ->
+        true
+      _ ->
+        false