getStylePath :: String -> String
getStylePath url = let name = takeFileName url
                       tmpDir = unsafePerformIO (retrieveTempDir)
                       path = tmpDir </> name
                   in path
getStylePath :: String -> String
getStylePath url = let name = takeFileName url
                       tmpDir = unsafePerformIO (retrieveTempDir)
                       path = tmpDir </> name
                   in path
getStylePath url = let name = takeFileName url
                       tmpDir = unsafePerformIO (retrieveTempDir)
                       path = tmpDir </> name
                   in path