handleNewVariant :: Handler App App ()
handleNewVariant = do
        vn <- getFormByteString "variant-name" ""
        let v = V.Variant {V.variantId = 0,
                           V.name = DTE.decodeUtf8 vn,
                           V.adjustsPrice = False,
                           V.isSearchable = False,
                           V.options = []}
        with db $ V.saveVariant v
        infoRedirect "/admin/product_options" "New Variant Group Added"
handleNewVariant :: Handler App App ()
handleNewVariant = do
        vn <- getFormByteString "variant-name" ""
        let v = V.Variant {V.variantId = 0,
                           V.name = DTE.decodeUtf8 vn,
                           V.adjustsPrice = False,
                           V.isSearchable = False,
                           V.options = []}
        with db $ V.saveVariant v
        infoRedirect "/admin/product_options" "New Variant Group Added"
handleNewVariant = do
        vn <- getFormByteString "variant-name" ""
        let v = V.Variant {V.variantId = 0,
                           V.name = DTE.decodeUtf8 vn,
                           V.adjustsPrice = False,
                           V.isSearchable = False,
                           V.options = []}
        with db $ V.saveVariant v
        infoRedirect "/admin/product_options" "New Variant Group Added"