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

rename row

Browse source
This commit is contained in:
Joey Hess 2019-10-30 13:02:16 -04:00
parent aa27969e55
commit f6cfb84dfe
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
Database/Keys/SQL.hs
View file

@ -35,8 +35,8 @@ Associated
FileKeyIndex file key
Content
key Key
cache InodeCache
KeyCacheIndex key cache
inodecache InodeCache
KeyInodeCacheIndex key inodecache
|]
containedTable :: TableName
@ -114,7 +114,7 @@ addInodeCaches k is = queueDb $
getInodeCaches :: Key -> ReadHandle -> IO [InodeCache]
getInodeCaches k = readDb $ do
l <- selectList [ContentKey ==. k] []
return $ map (contentCache . entityVal) l
return $ map (contentInodecache . entityVal) l
removeInodeCaches :: Key -> WriteHandle -> IO ()
removeInodeCaches k = queueDb $
@ -131,7 +131,7 @@ isInodeKnown i s = readDb query
| sentinalInodesChanged s =
withRawQuery likesql [] $ isJust <$> CL.head
| otherwise =
isJust <$> selectFirst [ContentCache ==. i] []
isJust <$> selectFirst [ContentInodecache ==. i] []
likesql = T.concat
[ "SELECT key FROM content WHERE "