getImageFunctionNameType url
    =  let name = takeFileName url
       in  case takeExtension url of
                ".jpg" -> (url, name, loadJpegByteString, saveJpegFile (-1))
                ".png" -> (url, name, loadPngByteString , savePngFile)
                ".gif" -> (url, name, loadGifByteString , saveGifFile)
                otherwise -> error $ "[DownloadProcess] error with unsuported image, at: " ++ url
getImageFunctionNameType url
    =  let name = takeFileName url
       in  case takeExtension url of
                ".jpg" -> (url, name, loadJpegByteString, saveJpegFile (-1))
                ".png" -> (url, name, loadPngByteString , savePngFile)
                ".gif" -> (url, name, loadGifByteString , saveGifFile)
                otherwise -> error $ "[DownloadProcess] error with unsuported image, at: " ++ url
getImageFunctionNameType url
    =  let name = takeFileName url
       in  case takeExtension url of
                ".jpg" -> (url, name, loadJpegByteString, saveJpegFile (-1))
                ".png" -> (url, name, loadPngByteString , savePngFile)
                ".gif" -> (url, name, loadGifByteString , saveGifFile)
                otherwise -> error $ "[DownloadProcess] error with unsuported image, at: " ++ url