Corrected sequence normalisation with pure (#162)

j-mie6 · Feb 1, 2023 · 4986269 · 4986269
1 parent 38858c4
commit 4986269
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/parsley/shared/src/main/scala/parsley/internal/deepembedding/backend/SequenceEmbedding.scala b/parsley/shared/src/main/scala/parsley/internal/deepembedding/backend/SequenceEmbedding.scala
@@ -186,7 +186,7 @@ private [deepembedding] final class Seq[A](private [backend] var before: DoublyL
             after.clear()
             mergeFromRight(p, chooseInto(r))
         // shift pure to the right by swapping before and after (before is empty linked list!)
-        case (_: Pure[_]) <** _ =>
+        case (_: Pure[_]) <* _ =>
             assume(before.isEmpty, "empty can reuse before instead of allocating a new list because before is empty")
             val empty = before
             before = after