diff options
| author | Félix Sipma <felix.sipma@no-log.org> | 2014-12-06 19:38:43 +0100 |
|---|---|---|
| committer | Félix Sipma <felix.sipma@no-log.org> | 2014-12-06 19:48:01 +0100 |
| commit | b3ee49836b5877fc8a9de48d769913392ba935ab (patch) | |
| tree | 7a2435be5499ecdf5784be2430219b5595891a8a /Form | |
| parent | 85c2929ad564edc3873c2c7bf39390855971ffda (diff) | |
Form.Cart: renames
* cartItemForm to cartItemShopForm
* cartItemEditForm to cartItemForm
Diffstat (limited to 'Form')
| -rw-r--r-- | Form/Cart.hs | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/Form/Cart.hs b/Form/Cart.hs index ffc18c2..e59e3dc 100644 --- a/Form/Cart.hs +++ b/Form/Cart.hs @@ -77,14 +77,14 @@ $newline never |] return (res, widget) -cartItemEditForm :: CartId - -> Entity Item - -> Quantity - -> UserId - -> CartItem - -> Html - -> MForm Handler (FormResult CartItem, Widget) -cartItemEditForm cartid eitem qtymax userid scitem = +cartItemForm :: CartId + -> Entity Item + -> Quantity + -> UserId + -> CartItem + -> Html + -> MForm Handler (FormResult CartItem, Widget) +cartItemForm cartid eitem qtymax userid scitem = renderCartBootstrap eitem qtymax scitem $ CartItem <$> pure cartid <*> pure itemid @@ -156,14 +156,14 @@ $newline never |] return (res, widget) -cartItemForm :: CartId - -> Entity Item - -> Quantity - -> UserId - -> Maybe CartItem - -> Html - -> MForm Handler (FormResult CartItem, Widget) -cartItemForm cartid eitem quantitymax userid mscitem = +cartItemShopForm :: CartId + -> Entity Item + -> Quantity + -> UserId + -> Maybe CartItem + -> Html + -> MForm Handler (FormResult CartItem, Widget) +cartItemShopForm cartid eitem quantitymax userid mscitem = renderOrderBootstrap item quantitymax $ CartItem <$> pure cartid <*> pure itemid |