- article :: String,
- cookie_jar :: Maybe FilePath,
- output :: FilePath,
- password :: Maybe String,
- username :: Maybe String }
-
+ article :: String,
+ cookie_jar :: CookieJar,
+ full_stories :: Bool,
+ output :: FilePath,
+ password :: Maybe String,
+ username :: Maybe String }
+
+-- An empty CookieJar. See cj_append for rationale.
+cj_empty :: CookieJar
+cj_empty = createCookieJar []
+
+
+-- Defined for convenience; I would really like to use mappend but GHC
+-- bitches about the orphan instance.
+cj_append :: CookieJar -> CookieJar -> CookieJar
+cj_append cj1 cj2 =
+ createCookieJar (cookies1 ++ cookies2)
+ where
+ -- Decompose the cookie jars into lists.
+ cookies1 = destroyCookieJar cj1
+ cookies2 = destroyCookieJar cj2