Qual è il modo migliore per fare molti-a-molti in Yesod persistente?

Question

Quindi il mio/config/modelli assomiglia a questo.

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

assumere i ingressi nel database sono Person "Batman"Person "Superman"Car "SUV"Car "Ford" rispettivamente.

Attualmente sto facendo questo per collegarli nel mio gestore.

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'è un modo più semplice per farlo? Esiste una convenzione per fare tale espressione?

Answer 1

No, attualmente non esiste una scorciatoia per questo tipo di query (che posso pensare, almeno).

Answer 2

le chiamate all'errore interromperanno l'app. logError potrebbe essere migliore.

Questo è più breve:

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"