Как объединить «детали» из отдельного запроса в списке в Гамлете?

Question

Я хотел бы отобразить список элементов на веб-странице вместе со связанными данными из отдельной таблицы (с отношением «много-к-одному»). Как это сделать в Yesod? Я использую стандартные леса. Результатом является то, что runDB не может быть вложен в контексте WidgetT   — или около того я думаю.

Чтобы сделать это более конкретным, как я определить функцию featuresAssociatedWith использовать в следующем сельце код:

<h2> Cars 

$forall Entity carId car <- carList 
    <div class="car-item"> 
     <h3> #{carYear car}&nbsp;#{carMake car} #{carModel car} 
     <ul> 
      $forall feature <- featuresAssociatedWith carId 
       <li> #{feature} 

Учитывая следующие модели:

Car 
    make  Text 
    model  Text 
    year  Int 

CarFeature 
    car   CarId 
    text  Text 
    UniqueCF car text 

Здесь текущая функция обработчика

getCarListR :: Handler Html 
getCarListR = do 
     carList <- runDB $ selectList [] [Asc CarOrder] 
     liftIO $ print $ length carList 
     defaultLayout $ do 
      setTitle "Cars" 
      $(widgetFile "carList") 

Кажется наиболее естественным внедрить runDB запрос в виджете этот путь, но опять же, это не представляется возможным:

featuresAssocWith :: CarId -> [Entity CarFeature] 
featuresAssocWith carID = selectList [CarFeatureCar ==. carID] [] 

Answer 1

Гамлет предназначен не позволяют выполнять действия, такие как запросы к базам данных внутри него. Вместо этого вам нужно будет выполнить запрос за пределами деревни, а затем передать список кортежей информации о машине вместе с данными из связанной таблицы.