From 45387450051d8daa0fcc9513c6bb2e3b8c242a2d Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Fri, 27 Mar 2015 15:43:28 -0700 Subject: [PATCH] adapt to GHC-7.10's foldable/traversable changes (#239) --- hledger-lib/Hledger/Utils/Regex.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/hledger-lib/Hledger/Utils/Regex.hs b/hledger-lib/Hledger/Utils/Regex.hs index 5a9d06521..161defac4 100644 --- a/hledger-lib/Hledger/Utils/Regex.hs +++ b/hledger-lib/Hledger/Utils/Regex.hs @@ -126,7 +126,7 @@ replaceBackReference _ s = error' $ "replaceBackReference called on non-numeric- replaceAllBy :: Regex -> (String -> String) -> String -> String replaceAllBy re f s = start end 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) = let (skip, start) = splitAt (off - ind) read (matched, remaining) = splitAt len start