envt: remove unused field

Octachron · Octachron · commit bb486c3f674c · 2025-03-18T20:40:26.000+01:00
diff --git a/lib/envt.ml b/lib/envt.ml
@@ -335,7 +335,6 @@ let open_world () =
 module Libraries = struct
 
   type source = {
-    origin: Paths.Simple.t;
     mutable resolved: Core.t;
     cmis: Pkg.t Modname.Map.t
   }
@@ -353,7 +352,7 @@ module Libraries = struct
           else m
         )
         Modname.Map.empty files in
-    { origin=Namespaced.flatten origin; resolved= Core.start M.Def.empty; cmis= cmis_map }
+    { resolved= Core.start M.Def.empty; cmis= cmis_map }
 
   let create includes =  List.map read_dir includes
 

Original file line number	Diff line number	Diff line change
`@@ -335,7 +335,6 @@ let open_world () =`
`335`	`335`	`module Libraries = struct`
`336`	`336`
`337`	`337`	`type source = {`
`338`		`- origin: Paths.Simple.t;`
`339`	`338`	`mutable resolved: Core.t;`
`340`	`339`	`cmis: Pkg.t Modname.Map.t`
`341`	`340`	`}`
`@@ -353,7 +352,7 @@ module Libraries = struct`
`353`	`352`	`else m`
`354`	`353`	`)`
`355`	`354`	`Modname.Map.empty files in`
`356`		`- { origin=Namespaced.flatten origin; resolved= Core.start M.Def.empty; cmis= cmis_map }`
	`355`	`+ { resolved= Core.start M.Def.empty; cmis= cmis_map }`
`357`	`356`
`358`	`357`	`let create includes = List.map read_dir includes`
`359`	`358`