イェソド/固定の1対1のクエリ

Question

セイ、イェソド/永続的に、私が持っているモデルのセットアップそうのようなUserのs。これをどうやってやりますか？

私は結合について考えましたが、それは一対一ではありません（私はそれは問題ではないと思いますが、もっと簡単な解決策を望みます）。手動で参加をしていることもオプションですが、私はパフォーマンスが心配だ - 私は

questions <- runDB $ selectList [QuestionTitle !=. ""] [LimitTo 10] 
let askerIds = map (\(Entity _ q) -> questionAsker q) questions 
askers <- sequence $ map (runDB . get) askerIds 
let questionsAndAskers = zip questions askers 

を持っているが、私はmapでrunDBを使用して心配です（それがためにデータベースへの個別の要求をすることはないだろう各ユーザーは？）

これを達成するためのより良い/より慣用的な方法がありますか？

Answer 1

私はまだこれを入力し、チェックしていないが、私はrunDBの内側全体のことを固執します：

runDB $ selectList [QuestionTitle !=. ""] [LimitTo 10] >>= mapM (\qe@(Entity _ q) -> do 
    asker <- get $ questionAsker q 
    return (qe, asker)) 

Answer 2

方法について：それはDB打つ必要がありますように思える

questions <- runDB $ selectList [QuestionTitle !=. ""] [LimitTo 10] 
let askerIds = map (\(Entity _ q) -> questionAsker q) questions 
askers <- runDB $ selectList [UserId <-. askerIds] [] 
let questionsAndAskers = zip questions askers 

一度ユーザーのために。