Yesod削除カスケード

Question

http://www.yesodweb.com/blog/2010/07/database-migrationsによると、DeleteCascadeは数年前にタイプクラスが追加されました。私はこれがモデルに追加されることを前提としています。私のモデルをこのように設定した後：

Field 
    ... 
    foreignId ForeignId DeleteCascade 

私のアプリケーションはうまくコンパイルされます。 DBスキーマは変更されず、削除はアプリケーションによってカスケードされません。私はちょうど（shudder）それを手動で行うべきですか？より良い方法がありますか？

私はイェソド足場（Application.hs、Foundation.hs、Settings.hs、...）

Answer 1

既存の回答を使用すると、削除カスケードの使用方法を理解するのに時間がかかりました。 Yesodの初心者として、私はYesodの概要を持っていませんでした。

作業中の削除カスケードを取得するには、モデル内の何も変更する必要はありません。エンティティファイルが次のように表示され、Entryを削除するとします。

Entry 
    title Text 
Comment 
    entry EntryId 

このエンティティファイルを変更する必要はありません。

エンティティを導く元のコードは、通常Model.hsです。

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

mkDeleteCascadeを追加して、エンティティのDeleteCascadesインスタンスを取得します。

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

あなたのエントリを削除したいたら、postDeleteEntryRハンドラで、たとえばあなたが代わりに削除のdeleteCascadeかdeleteCascadeWhereを使用する必要があります。

runDB $ deleteCascade entryId 

deleteを使用すると、前と同じ効果があります。

Answer 2

DeleteCascadeを利用するためには、あなたはどちらかdeleteCascadeまたはdeleteCascadeWhere機能を使用する必要がありますを使用しています。これらは、あなたの型に使用可能なDeleteCascadeインスタンスがある場合にのみ機能します。これらを取得する最も簡単な方法は、mkDeleteCascade関数を使用する方法です。