@@ -19,6 +19,14 @@ lazy_bytestring k s = do
19 let t = TL.replicate (fromIntegral k) (TL.pack s)
19 let t = TL.replicate (fromIntegral k) (TL.pack s)
20 BL.putStr (TL.encodeUtf8 t)
20 BL.putStr (TL.encodeUtf8 t)
22+strict_bytestring_ k s = do
23+ let t = T.replicate k (T.pack s)
24+ B.putStr (T.encodeUtf8' t)
26+lazy_bytestring_ k s = do
27+ let t = TL.replicate (fromIntegral k) (TL.pack s)
28+ BL.putStr (TL.encodeUtf8' t)
22strict_io k s = do
30strict_io k s = do
23 let t = T.replicate k (T.pack s)
31 let t = T.replicate k (T.pack s)
24 hSetEncoding stdout utf8
32 hSetEncoding stdout utf8
@@ -48,6 +56,8 @@ main = do
48 case kind of
56 case kind of
49 "strict" -> strict_bytestring k str
57 "strict" -> strict_bytestring k str
50 "lazy" -> lazy_bytestring k str
58 "lazy" -> lazy_bytestring k str
59+ "strict_" -> strict_bytestring_ k str
60+ "lazy_" -> lazy_bytestring_ k str
51 "strict_io" -> strict_io k str
61 "strict_io" -> strict_io k str
52 "lazy_io" -> lazy_io k str
62 "lazy_io" -> lazy_io k str
53 "string" -> string k str
63 "string" -> string k str