@@ -154,7 +154,10 @@ addCookiesToRequest req = do
154154 | c <- map snd $ Map.toList cookiesForRequest
155155 ]
156156 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 }
158161 where checkCookieTime t c =
159162 case Cookie.setCookieExpires c of
160163 Nothing -> True