diff options
Diffstat (limited to 'vendor/cabal-helper-0.8.1.2/tests/bkpregex/str-impls/Str/ByteString.hs')
-rw-r--r-- | vendor/cabal-helper-0.8.1.2/tests/bkpregex/str-impls/Str/ByteString.hs | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/vendor/cabal-helper-0.8.1.2/tests/bkpregex/str-impls/Str/ByteString.hs b/vendor/cabal-helper-0.8.1.2/tests/bkpregex/str-impls/Str/ByteString.hs deleted file mode 100644 index cd49fed..0000000 --- a/vendor/cabal-helper-0.8.1.2/tests/bkpregex/str-impls/Str/ByteString.hs +++ /dev/null @@ -1,17 +0,0 @@ -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) |