diff options
Diffstat (limited to 'Auth/Proxied.hs')
| -rw-r--r-- | Auth/Proxied.hs | 2 |
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 |