diff --git a/app/Handler/Account.hs b/app/Handler/Account.hs
--- a/app/Handler/Account.hs
+++ b/app/Handler/Account.hs
@@ -7,7 +7,7 @@
 
 
 -- | get account list
-getAccountsR :: AnyUserID -> Handler Html
+getAccountsR :: AnyUserId -> Handler Html
 getAccountsR uid=do
   -- no paging, should be reasonable
   accounts<-runYesodMPTToken $ getAll $ listAccounts uid
@@ -16,7 +16,7 @@
         $(widgetFile "accounts")
 
 -- | get account registration form
-getAccountR :: AnyUserID -> Handler Html
+getAccountR :: AnyUserId -> Handler Html
 getAccountR uid=do
     (widget, enctype) <- generateFormPost accountForm
     defaultLayout $ do
@@ -24,7 +24,7 @@
         $(widgetFile "account")
 
 -- | register account
-postAccountR :: AnyUserID -> Handler Html
+postAccountR :: AnyUserId -> Handler Html
 postAccountR uid=do
   ((result, widget), enctype) <- runFormPost accountForm
   case result of
@@ -56,7 +56,7 @@
   }
 
 -- | get the proper BankAccount structure
-toBankAccount :: AnyUserID -> BankAccountPartial -> BankAccount
+toBankAccount :: AnyUserId -> BankAccountPartial -> BankAccount
 toBankAccount uid bap=BankAccount Nothing Nothing (Just uid) (bapTag bap) (IBAN (bapIBAN bap) (bapBIC bap))
   (bapOwnerName bap) (bapOwnerAddress bap)
 
diff --git a/app/Handler/Card.hs b/app/Handler/Card.hs
--- a/app/Handler/Card.hs
+++ b/app/Handler/Card.hs
@@ -16,7 +16,7 @@
 import Control.Arrow ((&&&))
 
 -- | get card list
-getCardsR :: AnyUserID -> Handler Html
+getCardsR :: AnyUserId -> Handler Html
 getCardsR uid=do
   -- no paging, should be reasonable
   cards<-runYesodMPTToken $ getAll $ listCards uid
@@ -39,7 +39,7 @@
 -- and submit it back to us using the same session!
 -- if we didn't have a iframe and redirect the main page via the validation server, we lose the session, so we would need to encode a token in the url
 -- we can also use the pure Ajax solution via the mangopay JS toolkit, but the iframe system should work in more browsers
-getCardR :: AnyUserID -> Handler Html
+getCardR :: AnyUserId -> Handler Html
 getCardR uid=do
     ((result, _), _) <- runFormGet currencyForm
     case result of
@@ -75,7 +75,7 @@
   respond typePlain qs
 
 -- | this gets the token via JavaScript submission
-postCardR :: AnyUserID -> Handler Html
+postCardR :: AnyUserId -> Handler Html
 postCardR uid=do
   ((result, _), _) <- runFormPost cardTokenForm
   mjcr<-lookupSession "cardReg"
diff --git a/app/Handler/Doc.hs b/app/Handler/Doc.hs
--- a/app/Handler/Doc.hs
+++ b/app/Handler/Doc.hs
@@ -12,7 +12,7 @@
 import Data.ByteString.Lazy (toStrict)
 
 -- | get the upload form
-getDocR :: AnyUserID -> Handler Html
+getDocR :: AnyUserId -> Handler Html
 getDocR uid= do
   (widget, enctype) <- generateFormPost uploadForm
   defaultLayout $ do
@@ -20,7 +20,7 @@
         $(widgetFile "docupload")
 
 -- | upload doc and file and show result
-postDocR :: AnyUserID -> Handler Html
+postDocR :: AnyUserId -> Handler Html
 postDocR uid=do
    ((result, _), _) <- runFormPost uploadForm
    case result of
diff --git a/app/Handler/Transaction.hs b/app/Handler/Transaction.hs
--- a/app/Handler/Transaction.hs
+++ b/app/Handler/Transaction.hs
@@ -10,7 +10,7 @@
 import Data.Text (pack)
 
 -- | transaction list
-getTransactionsR :: AnyUserID -> Handler Html
+getTransactionsR :: AnyUserId -> Handler Html
 getTransactionsR uid= do
     pg<-getPagination
     txsL<-runYesodMPTToken $ listTransactionsForUser uid pg
@@ -23,7 +23,7 @@
 
 
 -- | get payin form
-getPayinR :: AnyUserID -> Handler Html
+getPayinR :: AnyUserId -> Handler Html
 getPayinR uid=do
     cards<-runYesodMPTToken $ getAll $ listCards uid
     wallets<-runYesodMPTToken $ getAll $ listWallets uid
@@ -33,7 +33,7 @@
         $(widgetFile "payin")
 
 -- | payin
-postPayinR :: AnyUserID -> Handler Html
+postPayinR :: AnyUserId -> Handler Html
 postPayinR uid=do
   cards<-runYesodMPTToken $ getAll $ listCards uid
   wallets<-runYesodMPTToken $ getAll $ listWallets uid
@@ -60,7 +60,7 @@
                   $(widgetFile "payin")
 
 -- | get first transfer page: choose the target user
-getTransfer1R :: AnyUserID -> Handler Html
+getTransfer1R :: AnyUserId -> Handler Html
 getTransfer1R uid=do
   users<-runYesodMPTToken $ getAll listUsers
   defaultLayout $ do
@@ -68,7 +68,7 @@
         $(widgetFile "transfer1")
 
 -- | get second transfer page: choose between wallets
-getTransfer2R :: AnyUserID -> AnyUserID -> Handler Html
+getTransfer2R :: AnyUserId -> AnyUserId -> Handler Html
 getTransfer2R uid touid=do
     fromWallets<-runYesodMPTToken $ getAll $ listWallets uid
     toWallets<-runYesodMPTToken $ getAll $ listWallets touid
@@ -78,7 +78,7 @@
         $(widgetFile "transfer2")
 
 -- | perfrm transfer
-postTransfer2R :: AnyUserID -> AnyUserID -> Handler Html
+postTransfer2R :: AnyUserId -> AnyUserId -> Handler Html
 postTransfer2R uid touid=do
   fromWallets<-runYesodMPTToken $ getAll $ listWallets uid
   toWallets<-runYesodMPTToken $ getAll $ listWallets touid
@@ -106,7 +106,7 @@
                   $(widgetFile "transfer2")
 
 -- | get payout form
-getPayoutR :: AnyUserID -> Handler Html
+getPayoutR :: AnyUserId -> Handler Html
 getPayoutR uid=do
     wallets<-runYesodMPTToken $ getAll $ listWallets uid
     accounts<-runYesodMPTToken $ getAll $ listAccounts uid
@@ -117,7 +117,7 @@
         $(widgetFile "payout")
 
 -- | payout
-postPayoutR :: AnyUserID -> Handler Html
+postPayoutR :: AnyUserId -> Handler Html
 postPayoutR uid=do
   wallets<-runYesodMPTToken $ getAll $ listWallets uid
   accounts<-runYesodMPTToken $ getAll $ listAccounts uid
@@ -146,7 +146,7 @@
 
 
 -- | data necessary for payin
-data PayIn = PayIn CardID WalletID Integer Currency
+data PayIn = PayIn CardId WalletId Integer Currency
 
 -- | payin form
 payinInForm :: [Card] -> [Wallet] -> Html -> MForm Handler (FormResult PayIn, Widget)
@@ -157,7 +157,7 @@
   <*> areq (selectFieldList (map (id &&& id) supportedCurrencies)) (localizedFS MsgPayInCurrency) Nothing
 
 -- | data necessary for transfer
-data MPTransfer= MPTransfer WalletID WalletID Integer Currency
+data MPTransfer= MPTransfer WalletId WalletId Integer Currency
 
 -- | transfer form
 transferForm :: [Wallet] -> [Wallet] -> Html -> MForm Handler (FormResult MPTransfer, Widget)
@@ -168,7 +168,7 @@
   <*> areq (selectFieldList (map (id &&& id) supportedCurrencies)) (localizedFS MsgTransferCurrency) Nothing
 
 -- | data necessary for payout
-data PayOut = PayOut WalletID BankAccountID Integer Currency
+data PayOut = PayOut WalletId BankAccountId Integer Currency
 
 -- | payin form
 payoutForm :: [Wallet] -> [BankAccount] -> Html -> MForm Handler (FormResult PayOut, Widget)
diff --git a/app/Handler/User.hs b/app/Handler/User.hs
--- a/app/Handler/User.hs
+++ b/app/Handler/User.hs
@@ -10,7 +10,7 @@
 import Yesod.MangoPay.Util
 
 -- | get the form to edit any type of user
-getUserR :: AnyUserID -> Handler Html
+getUserR :: AnyUserId -> Handler Html
 getUserR uid=do
   eu <- runYesodMPTToken $ getUser uid
   case eu of
diff --git a/app/Handler/Wallet.hs b/app/Handler/Wallet.hs
--- a/app/Handler/Wallet.hs
+++ b/app/Handler/Wallet.hs
@@ -9,7 +9,7 @@
 import Data.Text (pack)
 
 -- | get wallet list
-getWalletsR :: AnyUserID -> Handler Html
+getWalletsR :: AnyUserId -> Handler Html
 getWalletsR uid=do
   -- no paging, should be reasonable
   wallets<-runYesodMPTToken $ getAll $ listWallets uid
@@ -18,18 +18,18 @@
         $(widgetFile "wallets")
 
 -- | get wallet creation form
-getWalletR :: AnyUserID -> Handler Html
+getWalletR :: AnyUserId -> Handler Html
 getWalletR uid = readerWallet uid Nothing
 
 -- | get wallet edition form
-getWalletEditR :: AnyUserID -> WalletID -> Handler Html
+getWalletEditR :: AnyUserId -> WalletId -> Handler Html
 getWalletEditR uid wid = do
   wallet <- runYesodMPTToken $ fetchWallet wid
   readerWallet uid $ Just wallet
 
 
 -- | helper to generate the proper form given maybe an existing wallet
-readerWallet :: AnyUserID -> Maybe Wallet -> Handler Html
+readerWallet :: AnyUserId -> Maybe Wallet -> Handler Html
 readerWallet uid mwallet = do
   (widget, enctype) <- generateFormPost $ walletForm mwallet
   let mwid = join $ wId <$> mwallet
@@ -40,7 +40,7 @@
 
 -- | helper to create or modify a wallet
 helperWallet :: (Wallet -> AccessToken -> MangoPayT Handler Wallet) ->
-  Maybe Wallet -> AnyUserID -> Handler Html
+  Maybe Wallet -> AnyUserId -> Handler Html
 helperWallet fn mw uid=do
   ((result, _), _) <- runFormPost $ walletForm mw
   mwallet<-case result of
@@ -63,11 +63,11 @@
   readerWallet uid mwallet
 
 
-postWalletR :: AnyUserID -> Handler Html
+postWalletR :: AnyUserId -> Handler Html
 postWalletR = helperWallet createWallet Nothing
 
 
-putWalletEditR :: AnyUserID -> WalletID -> Handler Html
+putWalletEditR :: AnyUserId -> WalletId -> Handler Html
 putWalletEditR uid wid = do
   wallet <- runYesodMPTToken $ fetchWallet wid
   helperWallet modifyWallet (Just wallet) uid
diff --git a/yesod-mangopay.cabal b/yesod-mangopay.cabal
--- a/yesod-mangopay.cabal
+++ b/yesod-mangopay.cabal
@@ -1,5 +1,5 @@
 name:           yesod-mangopay
-version:        1.9
+version:        1.9.1
 cabal-version:  >= 1.8
 build-type:     Simple
 author:         JP Moresmau <jpmoresmau@gmail.com>