yesod-mangopay 1.0 → 1.1
raw patch · 3 files changed
+13/−18 lines, 3 filesdep ~mangopay
Dependency ranges changed: mangopay
Files
- app/Foundation.hs +2/−6
- src/Yesod/MangoPay.hs +7/−8
- yesod-mangopay.cabal +4/−4
app/Foundation.hs view
@@ -117,10 +117,8 @@ -- Place Javascript at bottom of the body tag so the rest of the page loads first jsLoader _ = BottomOfBody - -- What messages should be logged. The following includes all messages when- -- in development, and warnings and errors in production.- shouldLog _ _source level =- development || level == LevelWarn || level == LevelError+ -- What messages should be logged. Since this is a test app, log everything.+ shouldLog _ _ _ = True makeLogger = return . appLogger @@ -151,5 +149,3 @@ mpHttpManager=httpManager mpUseSandbox=mpSandbox . appExtra . settings mpToken=appToken--
src/Yesod/MangoPay.hs view
@@ -1,4 +1,4 @@-{-# LANGUAGE OverloadedStrings, TypeFamilies, FlexibleContexts,TemplateHaskell, RankNTypes #-}+{-# LANGUAGE OverloadedStrings, TypeFamilies, FlexibleContexts,TemplateHaskell, RankNTypes, ConstraintKinds #-} -- | typeclasses and helpers to access MangoPay from Yesod module Yesod.MangoPay where @@ -7,10 +7,9 @@ import qualified Yesod.Core as Y import qualified Network.HTTP.Conduit as HTTP import Data.Time.Clock (UTCTime, getCurrentTime, diffUTCTime, addUTCTime)-import Data.Text (Text, pack)+import Data.Text (Text) import Data.IORef (IORef, readIORef, writeIORef) -import qualified Data.Set as S import qualified Data.Map as M import Control.Monad (void) import qualified Control.Exception.Lifted as L@@ -35,7 +34,7 @@ -- | Run a 'MangoPayT' action inside a 'Y.GHandler' using your credentials. runYesodMPT ::- (Y.MonadHandler m,Y.MonadBaseControl IO m, Y.HandlerSite m ~ site, YesodMangoPay site) =>+ (Y.MonadHandler m,MPUsableMonad m, Y.HandlerSite m ~ site, YesodMangoPay site) => MangoPayT m a -> m a runYesodMPT act = do site <- Y.getYesod@@ -67,7 +66,7 @@ return $ if v then Just t else Nothing -- | get a valid token, which could be one we had from before, or a new one-getValidToken :: (YesodMangoPay site,Y.MonadBaseControl IO m,Y.MonadResource m) => site -> m (Maybe AccessToken)+getValidToken :: (YesodMangoPay site,MPUsableMonad m) => site -> m (Maybe AccessToken) getValidToken site=do mt<-getTokenIfValid site case mt of@@ -91,7 +90,7 @@ -- | same as 'runYesodMPT': runs a MangoPayT computation, but tries to reuse the current token if valid runYesodMPTToken ::- (Y.MonadHandler m,Y.MonadBaseControl IO m, Y.HandlerSite m ~ site, YesodMangoPay site) =>+ (Y.MonadHandler m,MPUsableMonad m, Y.HandlerSite m ~ site, YesodMangoPay site) => (AccessToken -> MangoPayT m a) -> m a runYesodMPTToken act = do site <- Y.getYesod@@ -103,7 +102,7 @@ -- | register callbacks for each event type on the same url -- mango pay does not let register two hooks for the same event, so we replace existing ones-registerAllMPCallbacks :: (Y.MonadHandler m,Y.MonadBaseControl IO m,Y.MonadLogger m, Y.HandlerSite m ~ site, YesodMangoPay site) =>+registerAllMPCallbacks :: (Y.MonadHandler m,MPUsableMonad m, Y.HandlerSite m ~ site, YesodMangoPay site) => Y.Route (Y.HandlerSite m)-> m () registerAllMPCallbacks rt=do render<-Y.getUrlRender@@ -126,7 +125,7 @@ _-> return () -- | register a call back using the given route-registerMPCallback :: (Y.MonadHandler m,Y.MonadBaseControl IO m, Y.HandlerSite m ~ site, YesodMangoPay site) =>+registerMPCallback :: (Y.MonadHandler m,MPUsableMonad m, Y.HandlerSite m ~ site, YesodMangoPay site) => Y.Route (Y.HandlerSite m)-> EventType -> Maybe Text -> m (AccessToken -> MangoPayT m Hook) registerMPCallback rt et mtag=do render<-Y.getUrlRender
yesod-mangopay.cabal view
@@ -1,5 +1,5 @@ name: yesod-mangopay-version: 1.0+version: 1.1 cabal-version: >= 1.8 build-type: Simple author: JP Moresmau <jpmoresmau@gmail.com>@@ -12,7 +12,7 @@ synopsis: Yesod library for MangoPay API access description:- This package provides convenince functions when using both+ This package provides convenience functions when using both @yesod@ and @mangopay@ packages. It also includes a test application that is built when the library-only flag is set to @False@.@@ -36,7 +36,7 @@ base >= 4 && < 5 , yesod >= 1.2.5 && < 1.3 , yesod-core >= 1.2 && < 1.3- , mangopay == 0.1+ , mangopay == 1.1.* , http-conduit >= 2.0 && < 2.1 , time >=1.4.0 && <1.5 , http-types >=0.8.2 && <0.9@@ -89,7 +89,7 @@ DeriveDataTypeable build-depends: yesod-mangopay- , mangopay == 0.1+ , mangopay == 1.1.* , base >= 4 && < 5 , yesod >= 1.2.5 && < 1.3 , yesod-core >= 1.2 && < 1.3