)
import Network.Curl.Download (openURI)
import System.Directory (doesFileExist, getTemporaryDirectory)
-import System.IO (hPutStrLn, stderr)
-import System.IO.Temp (openBinaryTempFile)
+import System.IO (hClose, hPutStrLn, stderr)
+import System.IO.Temp (openBinaryTempFile, openTempFile)
import LWN.URI (filename)
CurlVerbose True ]
+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
get_page :: Maybe FilePath -> URLString -> IO (Maybe String)
get_page cookie_jar url =