File tree Expand file tree Collapse file tree 1 file changed +0
-19
lines changed Expand file tree Collapse file tree 1 file changed +0
-19
lines changed Original file line number Diff line number Diff line change @@ -1285,22 +1285,3 @@ let completionPathFromMaybeBuiltin path =
12851285      (*  Route Stdlib_X to Stdlib.X for proper completions without the Stdlib_ prefix *) 
12861286      Some  (String. split_on_char '_'  mainModule)
12871287    |  _  -> None )
1288- 
1289- let  find_module_path_at_pos  ~(full  : SharedTypes.full ) ~(pos  : int * int ) = 
1290-   let  rec  aux  (structure  : Module.structure ) (path_acc  : string list ) = 
1291-     let  found = 
1292-       structure.Module. items
1293-       |>  List. find_map (fun  item  ->
1294-              match  item.Module. kind with 
1295-              |  SharedTypes.Module. Module  {type_  = Structure  substructure ; _}  ->
1296-                let  loc =  item.loc in 
1297-                if  CursorPosition. locHasCursor loc ~pos  then 
1298-                  Some  (aux substructure (path_acc @  [item.name]))
1299-                else  None 
1300-              |  _  -> None )
1301-     in 
1302-     match  found with 
1303-     |  Some  path  -> path
1304-     |  None  -> path_acc
1305-   in 
1306-   aux full.file.File. structure [full.file.File. moduleName]
    
 
   
 
     
   
   
          
     
  
    
     
 
    
      
     
 
     
    You can’t perform that action at this time.
  
 
    
  
     
    
      
        
     
 
       
      
     
   
 
    
    
  
 
  
 
     
    
0 commit comments