aboutsummaryrefslogtreecommitdiff
path: root/tests/bkpregex/str-impls/Str/ByteString.hs
diff options
context:
space:
mode:
Diffstat (limited to 'tests/bkpregex/str-impls/Str/ByteString.hs')
-rw-r--r--tests/bkpregex/str-impls/Str/ByteString.hs17
1 files changed, 17 insertions, 0 deletions
diff --git a/tests/bkpregex/str-impls/Str/ByteString.hs b/tests/bkpregex/str-impls/Str/ByteString.hs
new file mode 100644
index 0000000..cd49fed
--- /dev/null
+++ b/tests/bkpregex/str-impls/Str/ByteString.hs
@@ -0,0 +1,17 @@
+module Str.ByteString(module Data.ByteString.Char8, module Str.ByteString) where
+
+import Prelude hiding (length, null, splitAt)
+import Data.ByteString.Char8
+import Data.ByteString
+
+type Str = ByteString
+
+splits :: Str -> [(Str, Str)]
+splits s = fmap (\n -> splitAt n s) [0..length s]
+
+parts :: Str -> [[Str]]
+parts s | null s = [[]]
+ | otherwise = do
+ n <- [1..length s]
+ let (l, r) = splitAt n s
+ fmap (l:) (parts r)