From 515338784b8fc2fb5435ee4e061c092ff754d6cf Mon Sep 17 00:00:00 2001 From: Clint Adams Date: Thu, 24 Oct 2013 15:34:15 -0400 Subject: Use newer persistent and newer Yesod --- Auth/Proxied.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'Auth') diff --git a/Auth/Proxied.hs b/Auth/Proxied.hs index 9e15de3..15f5808 100644 --- a/Auth/Proxied.hs +++ b/Auth/Proxied.hs @@ -6,11 +6,11 @@ module Auth.Proxied ) where import Yesod.Auth -import Yesod.Handler (notFound) +import Yesod.Core (lift) +import Yesod.Core.Handler (notFound, waiRequest) import Text.Hamlet (hamlet) -import Yesod.Widget (toWidget) +import Yesod.Core.Widget (toWidget) -import Yesod.Handler (waiRequest) import Data.List (lookup) import Data.Maybe (fromMaybe) import Network.Wai (Request(requestHeaders)) @@ -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 - setCreds True $ Creds "proxied" (fromMaybe "" mfu) [] + lift $ setCreds True $ Creds "proxied" (fromMaybe "" mfu) [] dispatch _ _ = notFound login authToMaster = let url = authToMaster (PluginR "proxied" []) in -- cgit v1.2.3