@@ -154,7 +154,10 @@ addCookiesToRequest req = do
154 | c <- map snd $ Map.toList cookiesForRequest
154 | c <- map snd $ Map.toList cookiesForRequest
156 let cookieValue = toByteString $ Cookie.renderCookies cookiePairs
156 let cookieValue = toByteString $ Cookie.renderCookies cookiePairs
157− return $ req { requestHeaders = ("Cookie", cookieValue):requestHeaders req }
157+ addCookieHeader rest
158+ | null cookiePairs = rest
159+ | otherwise = ("Cookie", cookieValue) : rest
160+ return $ req { requestHeaders = addCookieHeader $ requestHeaders req }
158 where checkCookieTime t c =
161 where checkCookieTime t c =
159 case Cookie.setCookieExpires c of
162 case Cookie.setCookieExpires c of
160 Nothing -> True
163 Nothing -> True