diff --git a/JuicyPixels.cabal b/JuicyPixels.cabal --- a/JuicyPixels.cabal +++ b/JuicyPixels.cabal @@ -1,5 +1,5 @@ Name: JuicyPixels -Version: 3.2.9.2 +Version: 3.2.9.3 Synopsis: Picture loading/serialization (in png, jpeg, bitmap, gif, tga, tiff and radiance) Description: <> @@ -28,7 +28,7 @@ Source-Repository this Type: git Location: git://github.com/Twinside/Juicy.Pixels.git - Tag: v3.2.9.2 + Tag: v3.2.9.3 Flag Mmap Description: Enable the file loading via mmap (memory map) diff --git a/changelog b/changelog --- a/changelog +++ b/changelog @@ -1,6 +1,11 @@ Change log ========== +v3.2.9.3 December 2017 +---------------------- + + * Fix: remove bad invisible unicde char + v3.2.9.2 December 2017 ---------------------- diff --git a/src/Codec/Picture/Jpg/Progressive.hs b/src/Codec/Picture/Jpg/Progressive.hs --- a/src/Codec/Picture/Jpg/Progressive.hs +++ b/src/Codec/Picture/Jpg/Progressive.hs @@ -47,7 +47,7 @@ , let base = y * mcuWidth * compW , x <- [0 .. imageBlockSize - 1]] - indexMulti = + indexMulti = [(mcu + y * mcuWidth) * compW + x | mcu <- [0 .. mcuWidth - 1] , y <- [0 .. compH - 1] @@ -137,7 +137,7 @@ performEobRun $ idx + 1 else performEobRun $ idx + 1 - + unpack idx | idx > maxIndex = pure 0 unpack idx = do rrrrssss <- decodeRrrrSsss $ acHuffmanTree params @@ -151,7 +151,7 @@ let newEobRun = (1 `unsafeShiftL` r) + lowBits - 1 performEobRun idx pure newEobRun - + ( r, _) -> do val <- getBitVal idx' <- updateCoeffs (fromIntegral r) idx