Revert "Read COMPLETE sets from external packages"

This reverts commit 0d2f733050ff656b827351108d988e09abc363fc.

1 files changed, 2 insertions, 8 deletions

diff --git a/compiler/typecheck/TcBinds.hs b/compiler/typecheck/TcBinds.hs
index 201da00504..bb20b43892 100644
--- a/compiler/typecheck/TcBinds.hs
+++ b/compiler/typecheck/TcBinds.hs
@@ -245,18 +245,12 @@ tcCompleteSigs sigs =
             (res, cls) <- checkCLTypes AcceptAny
             case res of
               AcceptAny -> failWithTc ambiguousError
-              Fixed _ tc  -> return $ mkMatch cls tc
+              Fixed _ tc  -> return $ CompleteMatch cls tc
 
           check_complete_match tc_name = do
             ty_con <- tcLookupLocatedTyCon tc_name
             (_, cls) <- checkCLTypes (Fixed Nothing ty_con)
-            return $ mkMatch cls ty_con
-
-          mkMatch :: [ConLike] -> TyCon -> CompleteMatch
-          mkMatch cls ty_con = CompleteMatch {
-            completeMatchConLikes = map conLikeName cls,
-            completeMatchTyCon = tyConName ty_con
-            }
+            return $ CompleteMatch cls ty_con
       doOne _ = return Nothing
 
       ambiguousError :: SDoc