summaryrefslogtreecommitdiff
path: root/Auth
diff options
context:
space:
mode:
authorClint Adams <clint@softwarefreedom.org>2015-02-04 12:20:12 -0500
committerClint Adams <clint@softwarefreedom.org>2015-02-04 12:20:12 -0500
commitce4987aa71deb27970b2623a706349862a942ef4 (patch)
tree4e82e989127d85e65f5d91a6f27683aac486eb06 /Auth
parent180768dff27e4f31d1f66429b33feec75630b798 (diff)
Newer yesod-auth
Diffstat (limited to 'Auth')
-rw-r--r--Auth/Proxied.hs2
1 files changed, 1 insertions, 1 deletions
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