Commit e6b817fb

commit e6b817fb6f150165db6f641f57155eb24d067fb6
Author: Coder Agent <coder@agents.omni>
Date:   Thu Feb 19 23:07:22 2026

    Update merged memory embeddings
    
    Task-Id: t-484

diff --git a/Omni/Agent/Memory.hs b/Omni/Agent/Memory.hs
index 05025a57..5f574338 100644
--- a/Omni/Agent/Memory.hs
+++ b/Omni/Agent/Memory.hs
@@ -1301,9 +1301,11 @@ mergeMemories existing newContent newTags now = do
   let combinedContent =
         memoryContent existing <> "\n\n[Updated] " <> newContent
       combinedTags = List.nub (memoryTags existing <> newTags)
-      updated =
+  embeddingResult <- embedText combinedContent
+  let updated =
         existing
           { memoryContent = combinedContent,
+            memoryEmbedding = either (const (memoryEmbedding existing)) Just embeddingResult,
             memoryTags = combinedTags,
             memoryLastAccessedAt = now,
             -- Boost confidence when memory is reinforced
@@ -1312,8 +1314,9 @@ mergeMemories existing newContent newTags now = do
   withMemoryDb <| \conn ->
     SQL.execute
       conn
-      "UPDATE memories SET content = ?, tags = ?, last_accessed_at = ?, confidence = ? WHERE id = ?"
+      "UPDATE memories SET content = ?, embedding = ?, tags = ?, last_accessed_at = ?, confidence = ? WHERE id = ?"
       ( memoryContent updated,
+        vectorToBlob </ memoryEmbedding updated,
         TE.decodeUtf8 (BL.toStrict (Aeson.encode (memoryTags updated))),
         memoryLastAccessedAt updated,
         memoryConfidence updated,