Add specialized implementation of semigroup methods.

haskell · Apr 12, 2024 · bf0c343 · bf0c343
1 parent 180645e
commit bf0c343
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/Data/Text.hs b/src/Data/Text.hs
@@ -361,6 +361,8 @@ instance Read Text where
 -- | @since 1.2.2.0
 instance Semigroup Text where
     (<>) = append
+    stimes = replicate . P.fromIntegral
+    sconcat = concat . NonEmptyList.toList
 
 instance Monoid Text where
     mempty  = empty