yesod-mangopay 1.7.0 → 1.7.1
raw patch · 2 files changed
+39/−19 lines, 2 files
Files
- app/Handler/User.hs +32/−11
- yesod-mangopay.cabal +7/−8
app/Handler/User.hs view
@@ -3,11 +3,11 @@ module Handler.User where import Import+import Control.Monad (join, liftM)+import Web.MangoPay+import Yesod.Form.Jquery import Yesod.MangoPay import Yesod.MangoPay.Util-import Web.MangoPay-import Yesod.Form.Jquery-import Control.Monad (join, liftM) -- | get the form to edit any type of user getUserR :: AnyUserID -> Handler Html@@ -20,14 +20,14 @@ defaultLayout $ do setTitleI MsgTitleNUser let (formMethod, msgFormTitle) = formVariables $ Left muser- $(widgetFile "nuser")+ nuserWidget muser (formMethod, enctype, widget) msgFormTitle (Right lu)->do let muser=Just lu (widget, enctype) <- generateFormPost $ legalUserForm muser defaultLayout $ do let (formMethod, msgFormTitle) = formVariables $ Right muser setTitleI MsgTitleLUser- $(widgetFile "luser")+ luserWidget muser (formMethod, enctype, widget) msgFormTitle -- | get a natural user form getNUserR :: Handler Html@@ -36,7 +36,7 @@ defaultLayout $ do let (formMethod, msgFormTitle) = formVariables $ Left muser setTitleI MsgTitleNUser- $(widgetFile "nuser")+ nuserWidget muser (formMethod, enctype, widget) msgFormTitle -- | post a natural user form postNUserR :: Handler Html@@ -45,7 +45,7 @@ defaultLayout $ do let (formMethod, msgFormTitle) = formVariables $ Left muser setTitleI MsgTitleNUser- $(widgetFile "nuser")+ nuserWidget muser (formMethod, enctype, widget) msgFormTitle -- | put a natural user form, to modify an existing natural user putNUserR :: Handler Html@@ -54,7 +54,7 @@ defaultLayout $ do setTitleI MsgTitleNUser let (formMethod, msgFormTitle) = formVariables $ Left muser- $(widgetFile "nuser")+ nuserWidget muser (formMethod, enctype, widget) msgFormTitle -- | get a legal user form getLUserR :: Handler Html@@ -63,7 +63,7 @@ defaultLayout $ do let (formMethod, msgFormTitle) = formVariables $ Right muser setTitleI MsgTitleLUser- $(widgetFile "luser")+ luserWidget muser (formMethod, enctype, widget) msgFormTitle -- | post a legal user form postLUserR :: Handler Html@@ -72,7 +72,7 @@ defaultLayout $ do let (formMethod, msgFormTitle) = formVariables $ Right muser setTitleI MsgTitleLUser- $(widgetFile "luser")+ luserWidget muser (formMethod, enctype, widget) msgFormTitle -- | post a legal user form@@ -82,7 +82,7 @@ defaultLayout $ do let (formMethod, msgFormTitle) = formVariables $ Right muser setTitleI MsgTitleLUser- $(widgetFile "luser")+ luserWidget muser (formMethod, enctype, widget) msgFormTitle -- | common code for retrieval and form building userGet :: HtmlForm a@@ -173,3 +173,24 @@ u <- mu getId u process = maybe ("", MsgUserCreate) (\i -> ("?_method=PUT", MsgUserModify $ i))+++----------------------------------------------------------------------+++nuserWidget+ :: Maybe NaturalUser+ -> (Text, Enctype, Widget)+ -> AppMessage+ -> Widget+nuserWidget muser (formMethod, enctype, widget) msgFormTitle = $(widgetFile "nuser")+{-# NOINLINE nuserWidget #-}+++luserWidget+ :: Maybe LegalUser+ -> (Text, Enctype, Widget)+ -> AppMessage+ -> Widget+luserWidget muser (formMethod, enctype, widget) msgFormTitle = $(widgetFile "luser")+{-# NOINLINE luserWidget #-}
yesod-mangopay.cabal view
@@ -1,5 +1,5 @@ name: yesod-mangopay-version: 1.7.0+version: 1.7.1 cabal-version: >= 1.8 build-type: Simple author: JP Moresmau <jpmoresmau@gmail.com>@@ -55,7 +55,12 @@ executable yesod-mangopay if flag(library-only) Buildable: False-+ if flag(dev)+ cpp-options: -DDEVELOPMENT+ ghc-options: -Wall -O0+ else+ ghc-options: -Wall+ ghc-options: -threaded main-is: main.hs hs-source-dirs: app other-modules:@@ -73,11 +78,6 @@ Handler.Card, Handler.Account, Handler.Transaction- if flag(dev)- cpp-options: -DDEVELOPMENT- ghc-options: -Wall -O0- else- ghc-options: -Wall -O2 extensions: TemplateHaskell QuasiQuotes OverloadedStrings@@ -131,4 +131,3 @@ else build-depends: conduit == 1.0.*- ghc-options: -threaded -O2