getImagePath :: String -> IO String
getImagePath url = do let name = takeFileName url
                      tmpDir <- retrieveTempDir
                      let path = tmpDir </> name
                      bool <- doesFileExist path
                      if bool
                        then return path
                        else return $ tmpDir </> "default.jpg"
getImagePath :: String -> IO String
getImagePath url = do let name = takeFileName url
                      tmpDir <- retrieveTempDir
                      let path = tmpDir </> name
                      bool <- doesFileExist path
                      if bool
                        then return path
                        else return $ tmpDir </> "default.jpg"
getImagePath url = do let name = takeFileName url
                      tmpDir <- retrieveTempDir
                      let path = tmpDir </> name
                      bool <- doesFileExist path
                      if bool
                        then return path
                        else return $ tmpDir </> "default.jpg"