path, not value

yesod-core/Yesod/Core/Handler.hs

@@ -725,10 +725,10 @@ invalidArgsI msg = do
 
 setCookie :: MonadHandler m => SetCookie -> m ()
 setCookie sc = do
-  addHeaderInternal (DeleteCookie name value)
+  addHeaderInternal (DeleteCookie name path)
   addHeaderInternal (AddCookie sc)
   where name = setCookieName sc
-        value = setCookieValue sc
+        path = maybe "/" id (setCookiePath sc)
 
 -- | Helper function for setCookieExpires value
 getExpires :: MonadIO m

yesod-core/Yesod/Core/Types.hs

@@ -323,7 +323,7 @@ instance NFData ErrorResponse where
 ----- header stuff
 -- | Headers to be added to a 'Result'.
 data Header =
-    AddCookie SetCookie
+      AddCookie SetCookie
     | DeleteCookie ByteString ByteString
     | Header ByteString ByteString
     deriving (Eq, Show)