PR review suggestions

ocaml · Feb 26, 2021 · d6f68bf · d6f68bf
1 parent 2def156
commit d6f68bf
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 5 deletions.
diff --git a/src/xref2/lang_of.ml b/src/xref2/lang_of.ml
@@ -248,10 +248,7 @@ module ExtractIDs = struct
     let name = Ident.Name.type_ id in
     let identifier =
       if List.mem name map.shadowed.s_types then
-        `Type
-          ( parent,
-            Odoc_model.Names.TypeName.internal_of_string (Ident.Name.type_ id)
-          )
+        `Type (parent, Odoc_model.Names.TypeName.internal_of_string name)
       else `Type (parent, Ident.Name.typed_type id)
     in
     {

diff --git a/test/xref2/v408_and_above/github_issue_587.t/build.sh b/test/xref2/v408_and_above/github_issue_587.t/build.sh
@@ -1,4 +1,4 @@
-#!/bin/sh
+#!/usr/bin/env sh
 
 OCAMLC=ocamlc
 ODOC=odoc