thumbnail 0.3.0.1 → 0.4
raw patch · 2 files changed
+8/−1 lines, 2 files
Files
- Graphics/Thumbnail.hs +7/−0
- thumbnail.cabal +1/−1
Graphics/Thumbnail.hs view
@@ -15,6 +15,7 @@ , lbs :: L.ByteString -- ^ Thumbnail Data , orgImg :: Image -- ^ Original Image , orgSZ :: Size -- ^ Original Size+ , saveFile :: FilePath -> IO () } mkThumbnail :: L.ByteString -> IO (Either String Thumbnail)@@ -35,12 +36,14 @@ let size' = newSize size thm <- uncurry resizeImage size' dest bs <- saveJpegByteString (-1) thm+ let save fp = saveJpegFile (-1) fp thm return $ Right Thumbnail { fmt=Jpeg , img=thm , sz=size' , lbs=strictToLazy bs , orgImg=src , orgSZ=size+ , saveFile=save } thumbnailPng ws = do@@ -50,12 +53,14 @@ let size' = newSize size thm <- uncurry resizeImage size' dest bs <- savePngByteString thm+ let save fp = savePngFile fp thm return $ Right Thumbnail { fmt=Png , img=thm , sz=size' , lbs=strictToLazy bs , orgImg=src , orgSZ=size+ , saveFile=save } thumbnailGif ws = do@@ -65,12 +70,14 @@ let size' = newSize size thm <- uncurry resizeImage size' dest bs <- saveGifByteString thm+ let save fp = saveGifFile fp thm return $ Right Thumbnail { fmt=Gif , img=thm , sz=size' , lbs=strictToLazy bs , orgImg=src , orgSZ=size+ , saveFile=save } strictToLazy = L.pack . BS.unpack
thumbnail.cabal view
@@ -1,5 +1,5 @@ Name: thumbnail-Version: 0.3.0.1+Version: 0.4 Synopsis: generate thumbnail image Description: generate thumbnail image Homepage: https://github.com/cutsea110/thumbnail