blob: 0bd0469e53af36dc5efc701c35838871e7710dcf (
plain)
1
2
3
4
5
6
7
|
--- 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
|
