Skip to content
Snippets Groups Projects
Commit b0bcbc04 authored by Richard Eisenberg's avatar Richard Eisenberg
Browse files

Remove redundant compatibility check.

Previously, the closed type family compatibility check was
done even when type-checking an interface file. But interface
files now store compatibility info, so this check was redundant.
parent 9b38f6a1
No related branches found
No related tags found
No related merge requests found
...@@ -574,8 +574,7 @@ tc_iface_decl _ _ (IfaceAxiom { ifName = ax_occ, ifTyCon = tc ...@@ -574,8 +574,7 @@ tc_iface_decl _ _ (IfaceAxiom { ifName = ax_occ, ifTyCon = tc
= do { tc_name <- lookupIfaceTop ax_occ = do { tc_name <- lookupIfaceTop ax_occ
; tc_tycon <- tcIfaceTyCon tc ; tc_tycon <- tcIfaceTyCon tc
; tc_branches <- tc_ax_branches tc_tycon branches ; tc_branches <- tc_ax_branches tc_tycon branches
; let axiom = computeAxiomIncomps $ ; let axiom = CoAxiom { co_ax_unique = nameUnique tc_name
CoAxiom { co_ax_unique = nameUnique tc_name
, co_ax_name = tc_name , co_ax_name = tc_name
, co_ax_tc = tc_tycon , co_ax_tc = tc_tycon
, co_ax_role = role , co_ax_role = role
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment