Commit 9b456df4 authored by eir@cis.upenn.edu's avatar eir@cis.upenn.edu

Fix stale comments around closed type families.

parent 8c5e7346
......@@ -35,7 +35,7 @@ import Maybes
import TcMType
import TcType
import Name
import VarSet -- RAE
import VarSet
import Control.Monad
import Data.Map (Map)
import qualified Data.Map as Map
......
......@@ -784,8 +784,7 @@ findBranch (CoAxBranch { cab_tvs = tpl_tvs, cab_lhs = tpl_lhs, cab_incomps = inc
Just subst -- matching worked. now, check for apartness.
| all (isSurelyApart
. tcApartTys instanceBindFun target_tys
. coAxBranchLHS) $ -- RAE: This is horribly inefficient
incomps
. coAxBranchLHS) incomps
-> -- matching worked & we're apart from all incompatible branches. success
Just (ind, substTyVars subst tpl_tvs)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment