handleDelVariantOption :: Handler App App ()
handleDelVariantOption = do
        voId <- getFormInt "del-variant-option-id" 0
        with db $ VO.delVariantOption voId
        infoRedirect "/admin/product_options" "Variant Option Deleted"
handleDelVariantOption :: Handler App App ()
handleDelVariantOption = do
        voId <- getFormInt "del-variant-option-id" 0
        with db $ VO.delVariantOption voId
        infoRedirect "/admin/product_options" "Variant Option Deleted"
handleDelVariantOption = do
        voId <- getFormInt "del-variant-option-id" 0
        with db $ VO.delVariantOption voId
        infoRedirect "/admin/product_options" "Variant Option Deleted"