gravatar 0.5.4 → 0.6

raw patch · 2 files changed

+15/−4 lines, 2 files

Files

• Network/Gravatar.hs +14/−3
• gravatar.cabal +1/−1

@@ -1,7 +1,7 @@ ------------------------------------------------------------------------------- -- | -- Module      :  Network.Gravatar--- Copyright   :  (c) Patrick Brisbin 2010 +-- Copyright   :  (c) Patrick Brisbin 2010 -- License     :  as-is -- -- Maintainer  :  pbrisbin@gmail.com@@ -22,6 +22,7 @@     , Rating(..)     , Default(..)     , defaultConfig+    , Scheme (..)     ) where  import Data.Digest.Pure.MD5 (md5)@@ -81,8 +82,16 @@     , gDefault      :: Maybe DefaultImg     , gForceDefault :: ForceDefault     , gRating       :: Maybe Rating+    , gScheme       :: Scheme     } +data Scheme = Http | Https | None++instance Show Scheme where+  show Http = "http://"+  show Https = "https://"+  show None = "//"+ instance Default GravatarOptions where     def = defaultConfig @@ -93,11 +102,13 @@     , gDefault      = Nothing     , gForceDefault = ForceDefault False     , gRating       = Nothing+    , gScheme       = Http     } --- | Return the avatar for the given email using the provided options +-- | Return the avatar for the given email using the provided options gravatar :: GravatarOptions -> Text -> String-gravatar opts e = "http://www.gravatar.com/avatar/" ++ hashEmail e `addParams` opts+gravatar opts e = (show . gScheme $ opts) ++ "www.gravatar.com/avatar/"+                                          ++ hashEmail e `addParams` opts  -- | <http://en.gravatar.com/site/implement/hash/> hashEmail :: Text -> String

@@ -1,5 +1,5 @@ name:                gravatar-version:             0.5.4+version:             0.6 description:         Look up gravatar image urls by email address synopsis:            Look up gravatar image urls by email address homepage:            http://github.com/pbrisbin/gravatar