updateIfSuccess :: FormResult Wish -> WishId -> Handler (Bool)
updateIfSuccess result wishId  = do
    render <- getMessageRender
    case result of
        FormSuccess (wish) -> do
            runDB $ replace wishId wish
            setMessage $ toHtml $ render MsgRegisterWishWishUpdated
            return $ True
        _ -> return $ False
updateIfSuccess :: FormResult Wish -> WishId -> Handler (Bool)
updateIfSuccess result wishId  = do
    render <- getMessageRender
    case result of
        FormSuccess (wish) -> do
            runDB $ replace wishId wish
            setMessage $ toHtml $ render MsgRegisterWishWishUpdated
            return $ True
        _ -> return $ False
updateIfSuccess result wishId  = do
    render <- getMessageRender
    case result of
        FormSuccess (wish) -> do
            runDB $ replace wishId wish
            setMessage $ toHtml $ render MsgRegisterWishWishUpdated
            return $ True
        _ -> return $ False