diff options
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 |