Yesod：カスタムプライマリキーを使用して `persist`データベースにクエリする

Question

persistというSQLテーブルがあると仮定し、自動インクリメントのInt64キーの代わりにプライマリキーとしてTextというカスタムを持っているとします。

例えば、私のデータベースの定義はこれです：

私はその後、平野 Text値を持って、私の Textに一致する主キーを持つ行のためのデータベースを照会するための慣用的な方法は何であると仮定すると

share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistLowerCase| 
TorrentD 
    infoHash Text 
    ipAddr [Text] 
    Primary infoHash 
    deriving Show 
|] 

値？ runDB $ get $ toSqlKey ("test" :: Text)toSqlKeyはカスタムプライマリキーをサポートしていないため、Int64が必要です。

キーを手動で作成してrunDB $ get $ Key $ PersistText ("test" :: Text)を実行すると、Keyが範囲外であるというエラーが表示されます（私のインポートではDatabase.Persist.Class）。

Answer 1

私は（？）（？）の答えを見つけました。あまりにもかわいいですが、

get (TorrentDKey {unTorrentDKey = torrentPInfoHash torrent}) 

作品です。

unTorrentDKeyは、テンプレートhaskellの内部で生成されたものです。

私は私のコードで唐辛子の周り

let primaryKey = TorrentDKey {unTorrentDKey = torrentPInfoHash torrent} 

にありますように見えます。