Yesod delete cascade

Question

Theo http://www.yesodweb.com/blog/2010/07/database-migrations một DeleteCascade typeclass đã được thêm vào một vài năm trước đây. Tôi chỉ có thể giả định rằng điều này có nghĩa là để được thêm vào các mô hình. Sau khi thiết lập mô hình của tôi, hãy định cấu hình như sau:

Field 
    ... 
    foreignId ForeignId DeleteCascade 

đơn đăng ký của tôi biên dịch tốt. nhưng lược đồ DB không thay đổi và xóa cũng không bị ứng dụng xếp chồng. Tôi có nên chỉ (rùng mình) làm điều đó theo cách thủ công không? Có cách nào tốt hơn?

Tôi đang sử dụng giàn giáo Yesod (Application.hs, Foundation.hs, Settings.hs, ...)

Answer 1

Sử dụng các câu trả lời hiện có, phải mất một chút thời gian để tôi tìm hiểu cách sử dụng xóa tầng. Là một người mới bắt đầu ở Yesod, tôi không có cái nhìn tổng quan về Yesod.

Để có một chuỗi xóa hoạt động, bạn không cần thay đổi bất kỳ thứ gì trong mô hình. Giả sử tệp thực thể của bạn trông giống như sau và bạn muốn xóa Entry.

Entry 
    title Text 
Comment 
    entry EntryId 

Bạn không phải thay đổi tệp thực thể này.

Mã từ nơi bạn lãnh đạo các thực thể, thường là ở Model.hs, trông giống như vậy.

share [ mkPersist sqlOnlySettings 
     , mkMigrate "migrateAll" ] 
    $(persistFileWith lowerCaseSettings "config/models") 

Thêm mkDeleteCascade để nhận các trường hợp DeleteCascades cho các thực thể của bạn.

share [ mkPersist sqlOnlySettings 
     , mkDeleteCascade sqlOnlySettings 
     , mkMigrate "migrateAll" ] 
    $(persistFileWith lowerCaseSettings "config/models") 

Khi bạn muốn xóa bài viết này, ví dụ như trong postDeleteEntryR Handler bạn phải sử dụng deleteCascade hoặc deleteCascadeWhere thay vì xóa.

runDB $ deleteCascade entryId 

Sử dụng delete có cùng tác dụng như trước.

Answer 2

Để tận dụng lợi thế của DeleteCascade, bạn cần phải sử dụng một trong hai deleteCascade hoặc deleteCascadeWhere chức năng . Chúng sẽ chỉ hoạt động nếu có các cá thể DeleteCascade có sẵn cho các kiểu của bạn. Cách dễ nhất để có được điều này là với hàm mkDeleteCascade.