JuicyPixels-scale-dct 0.1.1.1 → 0.1.1.2

raw patch · 3 files changed

+14/−7 lines, 3 filesdep ~JuicyPixelsdep ~basedep ~base-compatPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: JuicyPixels, base, base-compat, carray, fft, time

API changes (from Hackage documentation)

Files

• CHANGELOG.md +4/−0
• JuicyPixels-scale-dct.cabal +1/−1
• example/Example.hs +9/−6

@@ -1,3 +1,7 @@+# 0.1.1.2++- Make test suite pass, even if `cat.jpg` is absent+ # 0.1.1.1  - Remove test dependency on `JuicyPixels-util`

@@ -3,7 +3,7 @@ -- see: https://github.com/sol/hpack  name:           JuicyPixels-scale-dct-version:        0.1.1.1+version:        0.1.1.2 synopsis:       Scale JuicyPixels images with DCT description:    Scale JuicyPixels Images with DCT                 .

@@ -11,12 +11,15 @@     -> IO () processImage src size dst = do     start <- getCurrentTime-    Right dimg <- readImage src-    let img = convertRGBA8 dimg-    let ava = scale size img-    writePng dst ava-    end <- getCurrentTime-    putStrLn $ dst ++ ": " ++ show (end `diffUTCTime` start)+    eimg <- readImage src+    case eimg of+        Left err -> print err+        Right dimg -> do+            let img = convertRGBA8 dimg+            let ava = scale size img+            writePng dst ava+            end <- getCurrentTime+            putStrLn $ dst ++ ": " ++ show (end `diffUTCTime` start)  main :: IO () main = do