646b892680
Some checks failed
Periodic Merges (6h) / master → staging-nixos (push) Failing after 12m50s
Periodic Merges (6h) / master → staging-next (push) Failing after 12m54s
Periodic Merges (24h) / merge-base(master,staging) → haskell-updates (push) Failing after 11m54s
Periodic Merges (6h) / staging-next → staging (push) Failing after 12m13s
Periodic Merges (24h) / staging-next-25.05 → staging-25.05 (push) Failing after 13m24s
Periodic Merges (24h) / release-25.05 → staging-next-25.05 (push) Failing after 14m28s
20 lines
691 B
Diff
20 lines
691 B
Diff
diff -rN -u old-regex-compat-tdfa/Text/Regex.hs new-regex-compat-tdfa/Text/Regex.hs
|
|
--- old-regex-compat-tdfa/Text/Regex.hs 2022-02-20 13:42:36.828752458 +0100
|
|
+++ new-regex-compat-tdfa/Text/Regex.hs 2022-02-20 13:42:36.828752458 +0100
|
|
@@ -139,7 +139,7 @@
|
|
splitRegex :: Regex -> String -> [String]
|
|
splitRegex _ [] = []
|
|
splitRegex delim strIn =
|
|
- let matches = map (!0) (matchAll delim strIn)
|
|
+ let matches = map (! 0) (matchAll delim strIn)
|
|
go _i str [] = str : []
|
|
go i str ((off,len):rest) =
|
|
let i' = off+len
|
|
@@ -194,4 +194,4 @@
|
|
then [firstline,""]
|
|
else firstline : loop remainder
|
|
|
|
--}
|
|
\ No newline at end of file
|
|
+-}
|