addded non-default initTails implementation for Seq

BebeSparkelSparkel · Feb 27, 2024 · b5ad836 · b5ad836
1 parent ec15fb5
commit b5ad836
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/mono-traversable/src/Data/Sequences.hs b/mono-traversable/src/Data/Sequences.hs
@@ -1008,6 +1008,11 @@ instance IsSequence (Seq.Seq a) where
     {-# INLINE indexEx #-}
     {-# INLINE unsafeIndex #-}
 
+    initTails = its . (,) mempty
+      where
+      its x@(is, y Seq.:<| ts) = x : its (is Seq.:|> y, ts)
+      its (_, Seq.Empty) = mempty
+
 instance SemiSequence (V.Vector a) where
     type Index (V.Vector a) = Int
     reverse = V.reverse