handleNewVariantOption ::  Handler App App ()
handleNewVariantOption = do
        nid <- getFormInt "new-variant-option" 0
        nvo <- getFormByteString (C8.pack (printf "variant-option-%d" nid)) ""
        if nvo == ""
            then danger "Please enter a variant option value."
            else do with db $ VO.addVariantOption nid (DTE.decodeUtf8 nvo)
                    info "New Variant Option Added"
        redirect "/admin/product_options"
handleNewVariantOption ::  Handler App App ()
handleNewVariantOption = do
        nid <- getFormInt "new-variant-option" 0
        nvo <- getFormByteString (C8.pack (printf "variant-option-%d" nid)) ""
        if nvo == ""
            then danger "Please enter a variant option value."
            else do with db $ VO.addVariantOption nid (DTE.decodeUtf8 nvo)
                    info "New Variant Option Added"
        redirect "/admin/product_options"
handleNewVariantOption = do
        nid <- getFormInt "new-variant-option" 0
        nvo <- getFormByteString (C8.pack (printf "variant-option-%d" nid)) ""
        if nvo == ""
            then danger "Please enter a variant option value."
            else do with db $ VO.addVariantOption nid (DTE.decodeUtf8 nvo)
                    info "New Variant Option Added"
        redirect "/admin/product_options"