deleteIfSuccess :: FormResult WishId -> WishId -> Handler (Bool)
deleteIfSuccess result wishId = do
    render <- getMessageRender
    case result of
        FormSuccess (_) -> do
            runDB $ delete wishId
            setMessage $ toHtml $ render MsgRegisterWishWishDeleted
            return $ True
        _ -> return $ False
deleteIfSuccess :: FormResult WishId -> WishId -> Handler (Bool)
deleteIfSuccess result wishId = do
    render <- getMessageRender
    case result of
        FormSuccess (_) -> do
            runDB $ delete wishId
            setMessage $ toHtml $ render MsgRegisterWishWishDeleted
            return $ True
        _ -> return $ False
deleteIfSuccess result wishId = do
    render <- getMessageRender
    case result of
        FormSuccess (_) -> do
            runDB $ delete wishId
            setMessage $ toHtml $ render MsgRegisterWishWishDeleted
            return $ True
        _ -> return $ False