[ new ] Implement Sized for Seqs

CHANGELOG.md

@@ -232,6 +232,8 @@
   were made to be indeed lazy by the effect, but their requirements were strengthened
   from `Applicative` to `Monad`.
 
+* Implements `Sized` for `Data.Seq.Sized` and `Data.Seq.Unsized`.
+
 #### Papers
 
 * In `Control.DivideAndConquer`: a port of the paper

libs/contrib/Data/Seq/Sized.idr

@@ -207,3 +207,7 @@ public export
 implementation {n : Nat} -> Applicative (Seq n) where
   pure = replicate n
   (<*>) = zipWith ($)
+
+public export
+implementation Sized (Seq n a) where
+  size (MkSeq s) = size s

libs/contrib/Data/Seq/Unsized.idr

@@ -218,3 +218,7 @@ public export
 public export
 implementation Monad Seq where
   xs >>= f = foldMap f xs
+
+public export
+implementation Sized (Seq a) where
+  size (MkSeq s) = size s