+-- 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
+