yesod-fb 0.2.1 → 0.2.2

raw patch · 2 files changed

+15/−1 lines, 2 files

Files

• src/Yesod/Facebook.hs +14/−0
• yesod-fb.cabal +1/−1

@@ -9,6 +9,9 @@     -- * Real-time update notifications   , parseRealTimeUpdateNotifications   , answerRealTimeUpdateChallenge++    -- * Requests+  , lookupRequestIds   ) where  import Control.Applicative ((<$>))@@ -18,6 +21,7 @@ import qualified Data.ByteString.Lazy.Char8 as L import qualified Data.Conduit as C import qualified Data.Conduit.List as CL+import qualified Data.Text as T import qualified Data.Text.Encoding as TE import qualified Facebook as FB import qualified Network.Wai as W@@ -128,3 +132,13 @@       | TE.encodeUtf8 hubVerifyToken `constTimeEq` token ->           return $ Y.RepPlain (Y.toContent hubChallenge)     _ -> Y.notFound+++----------------------------------------------------------------------+++-- | Lookup and parse the @request_ids@ GET parameter+-- <http://developers.facebook.com/docs/requests/>.+lookupRequestIds :: Y.GHandler sub master (Maybe [FB.Id])+lookupRequestIds = (map FB.Id . T.splitOn ",") <$$> Y.lookupGetParam "request_ids"+  where (<$$>) = fmap . fmap

@@ -1,5 +1,5 @@ Name:                yesod-fb-Version:             0.2.1+Version:             0.2.2 Synopsis:            Useful glue functions between the fb library and Yesod. Homepage:            https://github.com/meteficha/yesod-fb License:             BSD3