slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adapt to GHC-7.10's foldable/traversable changes (#239)

Browse Source
This commit is contained in:
Simon Michael 2015-03-27 15:43:28 -07:00
parent e60eb71467
commit 4538745005
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger-lib/Hledger/Utils/Regex.hs
View File

@ -126,7 +126,7 @@ replaceBackReference _ s = error' $ "replaceBackReference called on non-numeric-
replaceAllBy :: Regex -> (String -> String) -> String -> String replaceAllBy :: Regex -> (String -> String) -> String -> String
replaceAllBy re f s = start end replaceAllBy re f s = start end
where where
(_, end, start) = foldl' go (0, s, id) $ getAllMatches $ match re s (_, end, start) = foldl' go (0, s, id) $ (getAllMatches $ match re s :: [(Int, Int)])
go (ind,read,write) (off,len) = go (ind,read,write) (off,len) =
let (skip, start) = splitAt (off - ind) read let (skip, start) = splitAt (off - ind) read
(matched, remaining) = splitAt len start (matched, remaining) = splitAt len start