diff --git a/yesod-auth/Yesod/Auth/BrowserId.hs b/yesod-auth/Yesod/Auth/BrowserId.hs index 70aed162..9aab88ac 100644 --- a/yesod-auth/Yesod/Auth/BrowserId.hs +++ b/yesod-auth/Yesod/Auth/BrowserId.hs @@ -1,5 +1,6 @@ {-# LANGUAGE QuasiQuotes #-} {-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE TemplateHaskell #-} module Yesod.Auth.BrowserId ( authBrowserId , authBrowserIdAudience @@ -19,6 +20,8 @@ import Control.Exception (throwIO) import Text.Julius (julius, rawJS) import Data.Aeson (toJSON) import Network.URI (uriPath, parseURI) +import Data.FileEmbed (embedFile) +import Data.ByteString (ByteString) pid :: Text pid = "browserid" @@ -62,6 +65,10 @@ helper maudience = AuthPlugin , credsIdent = email , credsExtra = [] } + ("GET", ["static", "sign-in.png"]) -> sendResponse + ( "image/png" :: ByteString + , toContent $(embedFile "persona_sign_in_blue.png") + ) (_, []) -> badMethod _ -> notFound , apLogin = \toMaster -> do @@ -76,10 +83,11 @@ helper maudience = AuthPlugin $newline never

- + |] } where + loginIcon = PluginR pid ["static", "sign-in.png"] stripScheme t = fromMaybe t $ T.stripPrefix "//" $ snd $ T.breakOn "//" t -- | Generates a function to handle on-click events, and returns that function diff --git a/yesod-auth/persona_sign_in_blue.png b/yesod-auth/persona_sign_in_blue.png new file mode 100644 index 00000000..ab88a715 Binary files /dev/null and b/yesod-auth/persona_sign_in_blue.png differ diff --git a/yesod-auth/yesod-auth.cabal b/yesod-auth/yesod-auth.cabal index c2c57467..2498df3a 100644 --- a/yesod-auth/yesod-auth.cabal +++ b/yesod-auth/yesod-auth.cabal @@ -1,5 +1,5 @@ name: yesod-auth -version: 1.1.4.1 +version: 1.1.5 license: MIT license-file: LICENSE author: Michael Snoyman, Patrick Brisbin @@ -11,6 +11,7 @@ cabal-version: >= 1.6.0 build-type: Simple homepage: http://www.yesodweb.com/ description: Authentication for Yesod. +extra-source-files: persona_sign_in_blue.png library build-depends: base >= 4 && < 5