上運行也許關係

Question

加入我有一個模型

Assignment 
    blah Text 
    .... 

和模型

File 
    assignmentId AssignmentId Maybe 
    ... 

，我想有一個分配的連接查詢相關聯的所有文件。我已經試過Esqueleto和runJoin與selectOneMany，但沒有任何運氣，所以我正在考慮不使用連接，或使用rawSql。這真的不是一個好主意，但我無法弄清楚這一點。有沒有對該功能的支持？

Answer 1

更新，工作示例：

{-# LANGUAGE PackageImports, OverloadedStrings, ConstraintKinds #-} 
module Handler.HTest where 

import Import 
import "esqueleto" Database.Esqueleto as Esql 
import "monad-logger" Control.Monad.Logger (MonadLogger) 
import "resourcet" Control.Monad.Trans.Resource (MonadResourceBase) 
import qualified Data.List as L 

getFilesByAssignment :: (PersistQuery (SqlPersist m), MonadLogger m 
                , MonadResourceBase m) => 
         Text -> SqlPersist m [Entity File] 
getFilesByAssignment myAssign = do 
    result <- select $ 
     from $ \(assign `InnerJoin` file) -> do 
      on (just (assign ^. AssignmentId) 
      Esql.==. file ^. FileAssignmentId) 
      where_ (assign ^. AssignmentBlah Esql.==. val myAssign) 
      return (assign, file) 

    return $ map snd (result :: [(Entity Assignment, Entity File)]) 

(.$) = flip ($) 

getTestR :: Handler RepHtml 
getTestR = do 
     entFiles <- runDB $ getFilesByAssignment "test" 
     defaultLayout $ do 
       setTitle "Test page" 
       entFiles .$ map (show . unKey . entityKey) 
         .$ L.intercalate ", " 
         .$ toHtml 
         .$ toWidget