+make_cookie_jar :: IO FilePath
+make_cookie_jar = do
+ temp_dir <- getTemporaryDirectory
+ let file_name_template = "lwn-epub-cookies.txt"
+ (out_path, out_handle) <- openTempFile temp_dir file_name_template
+ hClose out_handle -- We just want to create it for now.
+ return out_path