Include Persona login icon yesodweb/authenticate#19

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
 <p>
     <a href="javascript:#{onclick}()">
-        <img src="https://browserid.org/i/sign_in_green.png">
+        <img src=@{toMaster loginIcon}>
 |]
     }
   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

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