fix Latin1 in Progressive.hs

JuicyPixels-3.2.9.3-Progressive-Latin1.patch

@@ -0,0 +1,11 @@
+--- JuicyPixels-3.2.9.3/src/Codec/Picture/Jpg/Progressive.hs~	2018-01-01 18:46:06.000000000 +0100
++++ JuicyPixels-3.2.9.3/src/Codec/Picture/Jpg/Progressive.hs	2018-01-27 19:26:56.780022170 +0100
+@@ -40,7 +40,7 @@
+ 
+         -- if the displayed MCU block is only displayed in half (like with
+         -- width 500 then we loose one macroblock of the MCU at the end of
+-        -- the line. Previous implementation which naïvely used full mcu
++        -- the line. Previous implementation which naively used full mcu
+         -- was wrong. Only taking into account visible macroblocks
+         indexSolo = [base + x
+             | y <- [0 .. compH - 1]

ghc-JuicyPixels.spec

@@ -12,6 +12,7 @@ Summary:        Picture loading and serialization
 License:        BSD
 Url:            https://hackage.haskell.org/package/%{pkg_name}
 Source0:        https://hackage.haskell.org/package/%{pkgver}/%{pkgver}.tar.gz
+Patch0:         JuicyPixels-3.2.9.3-Progressive-Latin1.patch
 
 BuildRequires:  ghc-Cabal-devel
 BuildRequires:  ghc-rpm-macros
@@ -50,6 +51,7 @@ This package provides the Haskell %{pkg_name} library development files.
 %prep
 %setup -q -n %{pkgver}
 sed -i 's/\r$//' LICENSE
+%patch0 -p1 -b .orig
 
 
 %build