postWishHandlerR listUrl Guest wishId = do
    render <- getMessageRender
    ((result, _), _) <- runFormPost $ wishGuestForm
    case result of
        FormSuccess (numPurchased) -> do
            runDB $ update wishId [WishBought +=. numPurchased]
        _ -> setMessage $ toHtml $ render MsgRegisterPurchasedError
    redirect $ WishListR listUrl Guest
postWishHandlerR listUrl Guest wishId = do
    render <- getMessageRender
    ((result, _), _) <- runFormPost $ wishGuestForm
    case result of
        FormSuccess (numPurchased) -> do
            runDB $ update wishId [WishBought +=. numPurchased]
        _ -> setMessage $ toHtml $ render MsgRegisterPurchasedError
    redirect $ WishListR listUrl Guest
postWishHandlerR listUrl Guest wishId = do
    render <- getMessageRender
    ((result, _), _) <- runFormPost $ wishGuestForm
    case result of
        FormSuccess (numPurchased) -> do
            runDB $ update wishId [WishBought +=. numPurchased]
        _ -> setMessage $ toHtml $ render MsgRegisterPurchasedError
    redirect $ WishListR listUrl Guest