diff --git a/Graphics/Thumbnail.hs b/Graphics/Thumbnail.hs
--- a/Graphics/Thumbnail.hs
+++ b/Graphics/Thumbnail.hs
@@ -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
diff --git a/thumbnail.cabal b/thumbnail.cabal
--- a/thumbnail.cabal
+++ b/thumbnail.cabal
@@ -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