getSimpleFunctionNameType url = let name = takeFileName url
                                in case takeExtension url of
                                        ".jpg" -> (name, loadJpegFile)
                                        ".png" -> (name, loadPngFile )
                                        ".gif" -> (name, loadGifFile )
                                        otherwise -> error $ "[ImageProcess] error with unsuported image, at: " ++ url
getSimpleFunctionNameType url = let name = takeFileName url
                                in case takeExtension url of
                                        ".jpg" -> (name, loadJpegFile)
                                        ".png" -> (name, loadPngFile )
                                        ".gif" -> (name, loadGifFile )
                                        otherwise -> error $ "[ImageProcess] error with unsuported image, at: " ++ url
getSimpleFunctionNameType url = let name = takeFileName url
                                in case takeExtension url of
                                        ".jpg" -> (name, loadJpegFile)
                                        ".png" -> (name, loadPngFile )
                                        ".gif" -> (name, loadGifFile )
                                        otherwise -> error $ "[ImageProcess] error with unsuported image, at: " ++ url