Haskell Persistent: jak uzyskać encji z db przez klucz, jeśli mam klucz w zmiennej liczbowej?

Question

Używam Persistent orm ze szkocką frameworkiem internetowym.

Chcę uzyskać wartość z db przez id. Te id przychodzą do mnie z żądania GET

Istnieje funkcja "get", która pobiera zmienną "Key Entity" i zwraca "Maybe Entity".

używam następujący kod, aby uzyskać wartości z db

k <- keyFromValues $ [(PersistInt64 myOwnIntVarFromRequest)] 
case k of 
    Left _ -> {-some processing-} 
    Right x -> do 
    t <- liftIO . runDb $ get (x::Key Post) --Post is one of my models 
    case t of 
     Nothing -> {-processing-} 
     Just x -> {-processing-} 

Są kod jest wyjątkowo brzydkie. Ale nie wiem jak to zrobić lepiej

Moje pytanie brzmi: jak uzyskać zmienną typu "Key Entity" bez wywoływania keyFromValues.

PS Przepraszam za mój słaby angielski

Answer 1

Można użyć toSqlKey do tego.