thumbnail 0.2 → 0.3
raw patch · 2 files changed
+13/−5 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Graphics.Thumbnail: orgImg :: Thumbnail -> Image
+ Graphics.Thumbnail: orgSZ :: Thumbnail -> Size
- Graphics.Thumbnail: Thumbnail :: ImageFormat -> Image -> Size -> ByteString -> Thumbnail
+ Graphics.Thumbnail: Thumbnail :: ImageFormat -> Image -> Size -> ByteString -> Image -> Size -> Thumbnail
Files
- Graphics/Thumbnail.hs +12/−4
- thumbnail.cabal +1/−1
Graphics/Thumbnail.hs view
@@ -9,10 +9,12 @@ data ImageFormat = Gif | Jpeg | Png -data Thumbnail = Thumbnail { fmt :: ImageFormat- , img :: Image- , sz :: Size- , lbs :: L.ByteString+data Thumbnail = Thumbnail { fmt :: ImageFormat -- ^ Image Format Type+ , img :: Image -- ^ Thumbnail Image+ , sz :: Size -- ^ Thumbnail Size+ , lbs :: L.ByteString -- ^ Thumbnail Data+ , orgImg :: Image -- ^ Original Image+ , orgSZ :: Size -- ^ Original Size } mkThumbnail :: L.ByteString -> IO (Either String Thumbnail)@@ -34,6 +36,8 @@ , img=thm , sz=size' , lbs=strictToLazy bs+ , orgImg=src+ , orgSZ=size } thumbnailPng ws = do@@ -47,6 +51,8 @@ , img=thm , sz=size' , lbs=strictToLazy bs+ , orgImg=src+ , orgSZ=size } thumbnailGif ws = do@@ -60,6 +66,8 @@ , img=thm , sz=size' , lbs=strictToLazy bs+ , orgImg=src+ , orgSZ=size } strictToLazy = L.pack . BS.unpack
thumbnail.cabal view
@@ -1,5 +1,5 @@ Name: thumbnail-Version: 0.2+Version: 0.3 Synopsis: generate thumbnail image Description: generate thumbnail image Homepage: https://github.com/cutsea110/thumbnail