diff --git a/src/ContentStore.hs b/src/ContentStore.hs index 70df48c..16696e8 100644 --- a/src/ContentStore.hs +++ b/src/ContentStore.hs @@ -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