diff options
author | Joey Hess <joeyh@debian.org> | 2013-11-27 18:41:44 -0400 |
---|---|---|
committer | Joey Hess <joeyh@debian.org> | 2013-11-27 18:41:44 -0400 |
commit | eb049ccc317574643633e51103aee310fe9f5788 (patch) | |
tree | 1618fd9e34a30409ee0937cb4b3861ec3b5e7bba /Build/EvilSplicer.hs | |
parent | 4c4133f0d54d9e3d5db413f2000aa34dd5b55d96 (diff) | |
parent | 2e6d39d426f6b08f236d6071e671a9dcfc799d91 (diff) |
Record git-annex (5.20131127) in archive suite sid
Diffstat (limited to 'Build/EvilSplicer.hs')
-rw-r--r-- | Build/EvilSplicer.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Build/EvilSplicer.hs b/Build/EvilSplicer.hs index f40d10033..35dba4968 100644 --- a/Build/EvilSplicer.hs +++ b/Build/EvilSplicer.hs @@ -584,7 +584,7 @@ text_builder_hack = replace "Data.Text.Lazy.Builder.Internal.fromText" "Data.Tex parsecAndReplace :: Parser String -> String -> String parsecAndReplace p s = case parse find "" s of Left e -> s - Right l -> concatMap (either (\c -> [c]) id) l + Right l -> concatMap (either return id) l where find :: Parser [Either Char String] find = many $ try (Right <$> p) <|> (Left <$> anyChar) |