Fix bug

lukemaurer · lukemaurer · commit 691d3cac37be · 2021-04-23T12:14:52.000+01:00
diff --git a/middle_end/flambda/types/env/aliases.ml b/middle_end/flambda/types/env/aliases.ml
@@ -474,9 +474,9 @@ let add_alias t element1 element2 =
   | Alias_of_canonical
         { element = _; canonical_element = canonical_element1; },
       Is_canonical canonical_element2
-  | Is_canonical canonical_element2,
+  | Is_canonical canonical_element1,
       Alias_of_canonical
-        { element = _; canonical_element = canonical_element1; }
+        { element = _; canonical_element = canonical_element2; }
   | Alias_of_canonical
         { element = _; canonical_element = canonical_element1; },
       Alias_of_canonical
