[ base ] Add semigroup and monoid instances for Vect

mmhelloworld · Aug 13, 2021 · c29dc73 · c29dc73
1 parent c1ebc05
commit c29dc73
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/libs/base/Data/Vect.idr b/libs/base/Data/Vect.idr
@@ -866,6 +866,18 @@ implementation Traversable (Vect k) where
     traverse f []        = pure []
     traverse f (x :: xs) = [| f x :: traverse f xs |]
 
+--------------------------------------------------------------------------------
+-- Semigroup/Monoid
+--------------------------------------------------------------------------------
+
+public export
+Semigroup a => Semigroup (Vect k a) where
+  (<+>) = zipWith (<+>)
+
+public export
+{k : Nat} -> Monoid a => Monoid (Vect k a) where
+  neutral = replicate k neutral
+
 --------------------------------------------------------------------------------
 -- Show
 --------------------------------------------------------------------------------