Add missing ys argument to shift2Right

Munksgaard · treeowl · commit fd8cf8aeeb48 · 2020-12-21T11:35:55.000-05:00
Perhaps I'm misreading the code here, but I think there's supposed to be a `ys` argument here, right?
diff --git a/containers/src/Data/Sequence.hs b/containers/src/Data/Sequence.hs
@@ -297,7 +297,7 @@ onto the beginning of the second one.
 shift2Right :: Seq a -> Seq a -> (Seq a, Seq a)
 shift2Right Empty ys = (Empty, ys)
 shift2Right (Empty :|> x) ys = (Empty, x :<| ys)
-shift2Right (xs :|> x1 :|> x2) = (xs, x1 :<| x2 :<| ys)
+shift2Right (xs :|> x1 :|> x2) ys = (xs, x1 :<| x2 :<| ys)
 @
 
 @

Original file line number	Diff line number	Diff line change
`@@ -297,7 +297,7 @@ onto the beginning of the second one.`
`297`	`297`	`shift2Right :: Seq a -> Seq a -> (Seq a, Seq a)`
`298`	`298`	`shift2Right Empty ys = (Empty, ys)`
`299`	`299`	`shift2Right (Empty :\|> x) ys = (Empty, x :<\| ys)`
`300`		`-shift2Right (xs :\|> x1 :\|> x2) = (xs, x1 :<\| x2 :<\| ys)`
	`300`	`+shift2Right (xs :\|> x1 :\|> x2) ys = (xs, x1 :<\| x2 :<\| ys)`
`301`	`301`	`@`
`302`	`302`
`303`	`303`	`@`