Cách tốt nhất để làm nhiều người trong nhiều người trong Yesod dai dẳng là gì?

Question

Vì vậy,/config/mô hình của tôi trông như thế này.

Person 
    name Text 
Car 
    name Text 
PersonCar 
    personId PersionId eq 
    carId CarId eq 
    UniquePersonCar personId carId 

Giả sử các yếu tố đầu vào cơ sở dữ liệu là Person "Batman"Person "Superman"Car "SUV"Car "Ford" tương ứng.

Tôi hiện đang thực hiện việc này để liên kết chúng trong Trình xử lý của tôi.

runDB $ do 
    person <- selectFirst [PersonName ==. "Batman"] [] 
    car <- selectFirst [Carname ==. "SUV"] [] 
    let Entity personId _ = case person of 
          Just info -> infor 
          Nothing -> error "no such Person" 
    let Entity carId _ = case car of 
          Just info -> infor 
          Nothing -> error "no such Car" 
    _ <- insert $ PersonCar personId carId 

Có cách nào dễ hơn để thực hiện việc này không? Có một quy ước để làm biểu hiện như vậy không?

Answer 1

Không, hiện tại không có cách viết tắt cho loại truy vấn này (ít nhất tôi có thể nghĩ đến).

Answer 2

cuộc gọi đến lỗi sẽ tạm dừng ứng dụng của bạn. logError có thể tốt hơn.

Đây là ngắn hơn:

import Data.Conduit 
import qualified Data.Conduit.List as DCL 

runDB $ do 
    mbPersonId <- runResourceT $ selectKeys [PersonName ==. "Batman"] [] $$ DCL.head 
    mbCarId <- runResourceT $ selectKeys [CarName ==. "SUV"] [] $$ DCL.head 

    case (mbPersonId, mbCarId) of 
     (Just personId, Just carId) -> do 
       _ <- insert $ PersonCar personId carId 
       return() 

     _ -> $(logError) "error looking for Batman and SUV"