yesod-auth 1.1.4.1 → 1.1.5

raw patch · 3 files changed

+11/−2 lines, 3 filesbinary-added

Files

• Yesod/Auth/BrowserId.hs +9/−1
• persona_sign_in_blue.png binary
• yesod-auth.cabal +2/−1

@@ -1,5 +1,6 @@ {-# LANGUAGE QuasiQuotes #-} {-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE TemplateHaskell #-} module Yesod.Auth.BrowserId     ( authBrowserId     , authBrowserIdAudience@@ -19,6 +20,8 @@ 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 @@                         , 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 @@ $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

binary file changed (absent → 3684 bytes)

@@ -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 @@ 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