You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
gentoo-overlay/dev-haskell/idiii/files/idiii-0.1.3.3-fold.patch

8 lines
372 B

--- a/src/ID3/Type/Tag.hs
+++ b/src/ID3/Type/Tag.hs
@@ -89,3 +89,3 @@ getActualSize t = (footerSize t) + (framesSize (t^.frames)) + (extHSize t)
framesSize :: Map FrameID ID3Frame -> FrameSize
-framesSize fs = Map.fold (\fr x -> fr^.frHeader^.frSize + 10 + x) 0 fs
+framesSize fs = Map.foldr (\fr x -> fr^.frHeader^.frSize + 10 + x) 0 fs
footerSize :: ID3Tag -> Integer