एक स्थायी इकाई के साथ डेटाबेस इकाई की आईडी कैसे प्राप्त करें?

Question

मैं एक डेटाबेस मॉडल है, इसलिए

import   Database.Persist.TH (mkPersist, persistUpperCase, 
            share, sqlSettings) 

share [mkPersist sqlSettings] [persistUpperCase| 
Foo 
    field1 Int 
    field2 Bool 
|] 

की तरह लगातार उपयोग करते हुए और मैं डेटाबेस से एक वस्तु foo :: Foo प्राप्त करने में सक्षम हूँ। मैं fooField1 foo :: Int और fooField2 foo :: Bool के साथ फ़ील्ड तक पहुंच सकता हूं। और क्योंकि मैं sqlSettings का उपयोग करता हूं, मुझे पता है कि Int64 है- प्रत्येक इकाई के साथ संग्रहीत "आईडी" डेटाबेस कुंजी का प्रतिनिधित्व। जैसे जब मैं get . toSqlKey :: Int64 -> ...

मेरे foo :: Foo को देखते हुए, मुझे id :: Int64 कैसे प्राप्त हो सकता है?

Answer 1

ए Foo अपने पास एक आईडी नहीं है, क्योंकि Foos डेटाबेस के बाहर मौजूद हो सकता है (वे लिखे जाने से पहले)। यही कारण है कि उदाहरण के लिए एक चुनिंदा ऑपरेशन आपको एंटिटी की एक सूची देता है, जिसमें कुंजी और ऑब्जेक्ट दोनों शामिल होते हैं।

http://hackage.haskell.org/package/persistent-2.2/docs/Database-Persist-Types.html#t:Entity

उदाहरण के लिए देखें, एक प्राथमिक कुंजी बाधा से प्राप्त करने में कठिनाई पर Yesod पुस्तक (http://www.yesodweb.com/book/persistent) देखें:

personId <- insert $ Person "Michael" "Snoyman" 26 
maybePerson <- getBy $ PersonName "Michael" "Snoyman" 
case maybePerson of 
    Nothing -> liftIO $ putStrLn "Just kidding, not really there" 
    Just (Entity personId person) -> liftIO $ print person 

getBy की वापसी प्रकार एक इकाई की दोनों प्रमुख लपेटकर है (personId) और मूल्य (person)।