From a357922d39565eb4cc03449b24662fe7c1153fa0 Mon Sep 17 00:00:00 2001 From: Greg Weber Date: Wed, 3 Apr 2013 15:24:12 -0700 Subject: [PATCH] setHeader -> addHeader --- yesod-core/Yesod/Core/Class/Yesod.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/yesod-core/Yesod/Core/Class/Yesod.hs b/yesod-core/Yesod/Core/Class/Yesod.hs index a56dbf79..40e2b6c6 100644 --- a/yesod-core/Yesod/Core/Class/Yesod.hs +++ b/yesod-core/Yesod/Core/Class/Yesod.hs @@ -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