diff options
author | Yuchen Pei <hi@ypei.me> | 2022-06-06 21:10:38 +1000 |
---|---|---|
committer | Yuchen Pei <hi@ypei.me> | 2022-06-06 21:10:38 +1000 |
commit | c5b33045238aa22a108c5ffd6989770e94b206eb (patch) | |
tree | 70f0325044b9d4748870a62adebca5c0e46f9e59 /vendor/cabal-helper-0.8.1.2/tests/bkpregex/str-impls/Str | |
parent | 93825d12f0e3c97a5db4a48b4fe6ae4865256a67 (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.hs | 17 | ||||
-rw-r--r-- | vendor/cabal-helper-0.8.1.2/tests/bkpregex/str-impls/Str/String.hs | 21 |
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] |