James/tricu
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use exact name matches in nameToTerm

Browse Source
This commit is contained in:
James Eversole
2025-05-26 09:00:51 -05:00
parent 94514f7dd0
commit 6780b242b1
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/ContentStore.hs
View File

@ -127,7 +127,7 @@ hashToTerm conn hashText =
nameToTerm :: Connection -> Text -> IO (Maybe StoredTerm)
nameToTerm conn nameText =
queryMaybeOne conn (selectStoredTermFields <> " WHERE names LIKE ? ORDER BY created_at DESC LIMIT 1") (Only $ "%" <> nameText <> "%")
queryMaybeOne conn (selectStoredTermFields <> " WHERE names = ? ORDER BY created_at DESC LIMIT 1") (Only nameText)
listStoredTerms :: Connection -> IO [StoredTerm]
listStoredTerms conn =
@ -172,8 +172,8 @@ termVersions :: Connection -> String -> IO [(Text, T, Integer)]
termVersions conn name = do
let nameText = T.pack name
results <- query conn
"SELECT hash, term_data, created_at FROM terms WHERE names LIKE ? ORDER BY created_at DESC"
(Only $ "%" <> nameText <> "%")
"SELECT hash, term_data, created_at FROM terms WHERE names = ? ORDER BY created_at DESC"
(Only nameText)
catMaybes <$> mapM (\(hashVal, termDataVal, timestamp) -> do
maybeT <- tryDeserializeTerm termDataVal