From ce4987aa71deb27970b2623a706349862a942ef4 Mon Sep 17 00:00:00 2001
From: Clint Adams <clint@softwarefreedom.org>
Date: Wed, 4 Feb 2015 12:20:12 -0500
Subject: Newer yesod-auth

---
 Auth/Proxied.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Auth')

diff --git a/Auth/Proxied.hs b/Auth/Proxied.hs
index 15f5808..32b2b78 100644
--- a/Auth/Proxied.hs
+++ b/Auth/Proxied.hs
@@ -27,7 +27,7 @@ authProxied =
   where
     dispatch _ [] = do
         mfu <- fmap ((fmap (decodeUtf8 . B.takeWhile (58 /=)) . either (const Nothing) return . Base64.decode . B.drop 1 . B.dropWhile (32 /=) =<<) . lookup (mk "Authorization") . requestHeaders) waiRequest
-        lift $ setCreds True $ Creds "proxied" (fromMaybe "" mfu) []
+        lift $ setCredsRedirect $ Creds "proxied" (fromMaybe "" mfu) []
     dispatch _ _ = notFound
     login authToMaster =
         let url = authToMaster (PluginR "proxied" []) in
-- 
cgit v1.2.3