Fix pped building

Author: ChrisPenner

codebase2/codebase-sqlite/U/Codebase/Sqlite/Queries.hs

@@ -2032,8 +2032,8 @@ getTransitiveDependentsWithinScope scope query = do
         WITH RECURSIVE
         dependents_index_in_scope AS (
           SELECT *
-          FROM dependents_index
-          WHERE (dependent_object_id, dependent_component_index) IN (
+          FROM dependents_index d
+          WHERE (d.dependent_object_id, d.dependent_component_index) IN (
             SELECT object_id, component_index
             FROM $scopeTableName
           )

unison-share-api/src/Unison/Server/Local/Endpoints/DefinitionSummary.hs

@@ -19,20 +19,15 @@ where
 
 import Control.Monad.Reader
 import Servant (Capture, QueryParam, (:>))
-import U.Codebase.Causal qualified as V2Causal
 import U.Codebase.HashTags (CausalHash)
-import U.Codebase.Sqlite.NameLookups (PathSegments (..))
-import U.Codebase.Sqlite.Operations qualified as Ops
 import Unison.Codebase (Codebase)
 import Unison.Codebase qualified as Codebase
 import Unison.Codebase.Path qualified as Path
 import Unison.Codebase.ShortCausalHash (ShortCausalHash)
 import Unison.HashQualified qualified as HQ
 import Unison.Name (Name)
-import Unison.NameSegment.Internal (NameSegment (NameSegment))
 import Unison.Parser.Ann (Ann)
 import Unison.Prelude
-import Unison.PrettyPrintEnvDecl.Sqlite qualified as PPESqlite
 import Unison.Reference (Reference)
 import Unison.Reference qualified as Reference
 import Unison.Referent (Referent)
@@ -71,11 +66,10 @@ serveTermSummary ::
   Backend IO TermSummary
 serveTermSummary codebase referent mayName root relativeTo mayWidth = do
   let relativeToPath = fromMaybe mempty relativeTo
-  namesPerspective <- Backend.hoistBackend (Codebase.runTransaction codebase) do
-    root <- Backend.normaliseRootCausalHash root
-    namesPerspective <- lift $ Ops.namesPerspectiveForRootAndPath (V2Causal.valueHash root) (coerce $ Path.toList relativeToPath)
-    pure namesPerspective
-  let mkPPED deps = PPESqlite.ppedForReferences namesPerspective deps
+  root <- Backend.hoistBackend (Codebase.runTransaction codebase) do
+    Backend.normaliseRootCausalHash root
+  (_, ppe) <- Backend.namesAtPathFromRootBranchHash codebase root relativeToPath
+  let mkPPED _deps = pure ppe
   Backend.termSummaryForReferent codebase referent mayName mkPPED mayWidth
 
 type TypeSummaryAPI =