From 15b6cb2e94243cd8f6c9912a78ee1a5e9738b264 Mon Sep 17 00:00:00 2001 From: tv Date: Thu, 13 Mar 2025 21:06:59 +0100 Subject: add splitAt --- src/Blessings/ByteString.hs | 1 + src/Blessings/ByteString/Lazy.hs | 1 + src/Blessings/Internal.hs | 1 + src/Blessings/String.hs | 1 + src/Blessings/Text.hs | 1 + 5 files changed, 5 insertions(+) (limited to 'src/Blessings') diff --git a/src/Blessings/ByteString.hs b/src/Blessings/ByteString.hs index d914818..42139fa 100644 --- a/src/Blessings/ByteString.hs +++ b/src/Blessings/ByteString.hs @@ -13,5 +13,6 @@ instance Blessable B.ByteString where length = B.length drop = B.drop take = B.take + splitAt = B.splitAt intercalate = B.intercalate fromWord8 = B.pack . show diff --git a/src/Blessings/ByteString/Lazy.hs b/src/Blessings/ByteString/Lazy.hs index a32f29b..c0f521c 100644 --- a/src/Blessings/ByteString/Lazy.hs +++ b/src/Blessings/ByteString/Lazy.hs @@ -13,5 +13,6 @@ instance Blessable L.ByteString where length = fromIntegral . L.length drop = L.drop . fromIntegral take = L.take . fromIntegral + splitAt = L.splitAt . fromIntegral intercalate = L.intercalate fromWord8 = L.pack . show diff --git a/src/Blessings/Internal.hs b/src/Blessings/Internal.hs index 0ed5556..38c9069 100644 --- a/src/Blessings/Internal.hs +++ b/src/Blessings/Internal.hs @@ -8,5 +8,6 @@ class (IsString a, Monoid a) => Blessable a where length :: a -> Int drop :: Int -> a -> a take :: Int -> a -> a + splitAt :: Int -> a -> (a, a) intercalate :: a -> [a] -> a fromWord8 :: Word8 -> a diff --git a/src/Blessings/String.hs b/src/Blessings/String.hs index 005cd7b..bc3d8cc 100644 --- a/src/Blessings/String.hs +++ b/src/Blessings/String.hs @@ -14,5 +14,6 @@ instance Blessable String where length = L.length drop = L.drop take = L.take + splitAt = L.splitAt intercalate = L.intercalate fromWord8 = show diff --git a/src/Blessings/Text.hs b/src/Blessings/Text.hs index 1f82c22..236b5d0 100644 --- a/src/Blessings/Text.hs +++ b/src/Blessings/Text.hs @@ -14,5 +14,6 @@ instance Blessable Text where length = T.length drop = T.drop take = T.take + splitAt = T.splitAt intercalate = T.intercalate fromWord8 = T.pack . show -- cgit v1.2.3