diff --git a/src/Data/Text.hs b/src/Data/Text.hs
index c14abf6e..eeb40ec2 100644
--- 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