From f6cfb84dfe28a266dd61468c330450091f2cc9bc Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 30 Oct 2019 13:02:16 -0400 Subject: [PATCH] rename row --- Database/Keys/SQL.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Database/Keys/SQL.hs b/Database/Keys/SQL.hs index 0cfebfb9fa..2685637dae 100644 --- a/Database/Keys/SQL.hs +++ b/Database/Keys/SQL.hs @@ -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 "