mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

add getContentIdentifiers

Browse source 
Changed the database schema for this, with a new index.
This commit is contained in:
Joey Hess 2019-03-04 16:48:07 -04:00
parent 00722ba1f8
commit 138d07eb97
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Database/ContentIdentifier.hs
View file

@ -41,7 +41,8 @@ ContentIdentifiers
remote UUID remote UUID
cid ContentIdentifier cid ContentIdentifier
key SKey key SKey
ContentIdentifiersIndex remote cid ContentIdentifiersIndexRemoteKey remote key
ContentIdentifiersIndexRemoteCID remote cid
UniqueRemoteCidKey remote cid key UniqueRemoteCidKey remote cid key
|] |]
@ -79,6 +80,14 @@ recordContentIdentifier :: ContentIdentifierHandle -> UUID -> ContentIdentifier
recordContentIdentifier h u cid k = queueDb h $ do recordContentIdentifier h u cid k = queueDb h $ do
void $ insertUnique $ ContentIdentifiers u cid (toSKey k) void $ insertUnique $ ContentIdentifiers u cid (toSKey k)
getContentIdentifiers :: ContentIdentifierHandle -> UUID -> Key -> IO [ContentIdentifier]
getContentIdentifiers (ContentIdentifierHandle h) u k = H.queryDbQueue h $ do
l <- selectList
[ ContentIdentifiersCid ==. cid
, ContentIdentifiersKey ==. toSKey k
] []
return $ map (ContentIdentifiersCid . entityVal) l
getContentIdentifierKeys :: ContentIdentifierHandle -> UUID -> ContentIdentifier -> IO [Key] getContentIdentifierKeys :: ContentIdentifierHandle -> UUID -> ContentIdentifier -> IO [Key]
getContentIdentifierKeys (ContentIdentifierHandle h) u cid = getContentIdentifierKeys (ContentIdentifierHandle h) u cid =
H.queryDbQueue h $ do H.queryDbQueue h $ do