setHeader -> addHeader

This commit is contained in:
Greg Weber 2013-04-03 15:24:12 -07:00
parent cb8aa986f0
commit a357922d39

View File

@ -428,7 +428,7 @@ defaultErrorHandler NotAuthenticated = selectRep $ do
-- however, there is no standard to indicate a redirection
--
-- change this to Basic or Digest if you allow those forms of authentications
setHeader "WWW-Authenticate" "RedirectJSON realm=\"application\", param=\"authentication_url\""
addHeader "WWW-Authenticate" "RedirectJSON realm=\"application\", param=\"authentication_url\""
-- The client will just use the authentication_url in the JSON
site <- getYesod