aboutsummaryrefslogtreecommitdiff
path: root/vendor/cabal-helper-0.8.1.2/tests/bkpregex/str-impls/Str
diff options
context:
space:
mode:
authorYuchen Pei <hi@ypei.me>2022-06-06 21:10:38 +1000
committerYuchen Pei <hi@ypei.me>2022-06-06 21:10:38 +1000
commitc5b33045238aa22a108c5ffd6989770e94b206eb (patch)
tree70f0325044b9d4748870a62adebca5c0e46f9e59 /vendor/cabal-helper-0.8.1.2/tests/bkpregex/str-impls/Str
parent93825d12f0e3c97a5db4a48b4fe6ae4865256a67 (diff)
Replacing cabal-helper-0.8.1.2 with 1.1.0.0
Diffstat (limited to 'vendor/cabal-helper-0.8.1.2/tests/bkpregex/str-impls/Str')
-rw-r--r--vendor/cabal-helper-0.8.1.2/tests/bkpregex/str-impls/Str/ByteString.hs17
-rw-r--r--vendor/cabal-helper-0.8.1.2/tests/bkpregex/str-impls/Str/String.hs21
2 files changed, 0 insertions, 38 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)
diff --git a/vendor/cabal-helper-0.8.1.2/tests/bkpregex/str-impls/Str/String.hs b/vendor/cabal-helper-0.8.1.2/tests/bkpregex/str-impls/Str/String.hs
deleted file mode 100644
index bba89de..0000000
--- a/vendor/cabal-helper-0.8.1.2/tests/bkpregex/str-impls/Str/String.hs
+++ /dev/null
@@ -1,21 +0,0 @@
-module Str.String where
-
-import Prelude hiding (null)
-import qualified Prelude as P
-
-type Str = String
-
-null :: Str -> Bool
-null = P.null
-
-singleton :: Char -> Str
-singleton c = [c]
-
-splits :: Str -> [(Str, Str)]
-splits [] = [([], [])]
-splits (c:cs) = ([], c:cs):[(c:s1,s2) | (s1,s2) <- splits cs]
-
-parts :: Str -> [[Str]]
-parts [] = [[]]
-parts [c] = [[[c]]]
-parts (c:cs) = concat [[(c:p):ps, [c]:p:ps] | p:ps <- parts cs]