handleDelVariant :: Handler App App ()
handleDelVariant = do
        vid <- getFormInt "del-variant-id" 0
        with db $ V.delVariant vid
        infoRedirect "/admin/product_options" "Variant Group Deleted"
handleDelVariant :: Handler App App ()
handleDelVariant = do
        vid <- getFormInt "del-variant-id" 0
        with db $ V.delVariant vid
        infoRedirect "/admin/product_options" "Variant Group Deleted"
handleDelVariant = do
        vid <- getFormInt "del-variant-id" 0
        with db $ V.delVariant vid
        infoRedirect "/admin/product_options" "Variant Group Deleted"