getUrlFileName url
    = let name = takeFileName url
      in case takeExtension url of
            ".css"    -> (url, name)
            otherwise -> error $ "[DownloadProcess] error with bad extension file, at: " ++ url
getUrlFileName url
    = let name = takeFileName url
      in case takeExtension url of
            ".css"    -> (url, name)
            otherwise -> error $ "[DownloadProcess] error with bad extension file, at: " ++ url
getUrlFileName url
    = let name = takeFileName url
      in case takeExtension url of
            ".css"    -> (url, name)
            otherwise -> error $ "[DownloadProcess] error with bad extension file, at: " ++ url