diff options
Diffstat (limited to 'compiler/GHC/IfaceToCore.hs')
| -rw-r--r-- | compiler/GHC/IfaceToCore.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/IfaceToCore.hs b/compiler/GHC/IfaceToCore.hs index 76079ae8ff..99e89b0fd1 100644 --- a/compiler/GHC/IfaceToCore.hs +++ b/compiler/GHC/IfaceToCore.hs @@ -1281,10 +1281,10 @@ tcIfaceCompleteMatches :: [IfaceCompleteMatch] -> IfL [CompleteMatch] tcIfaceCompleteMatches = mapM tcIfaceCompleteMatch tcIfaceCompleteMatch :: IfaceCompleteMatch -> IfL CompleteMatch -tcIfaceCompleteMatch (IfaceCompleteMatch ms mtc) = do +tcIfaceCompleteMatch (IfaceCompleteMatch ms mty) = do conlikes <- mkUniqDSet <$> mapM (forkM doc . tcIfaceConLike) ms - mtc' <- traverse tcIfaceTyCon mtc - return (CompleteMatch conlikes mtc') + mty' <- traverse tcIfaceType mty + return (CompleteMatch conlikes mty') where doc = text "COMPLETE sig" <+> ppr ms |