diff options
Diffstat (limited to 'compiler/basicTypes/MkId.hs')
-rw-r--r-- | compiler/basicTypes/MkId.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/compiler/basicTypes/MkId.hs b/compiler/basicTypes/MkId.hs index 593f9ac3a9..63a6dc1030 100644 --- a/compiler/basicTypes/MkId.hs +++ b/compiler/basicTypes/MkId.hs @@ -67,7 +67,6 @@ import UniqSupply import PrelNames import BasicTypes hiding ( SuccessFlag(..) ) import Util -import Pair import DynFlags import Outputable import FastString @@ -962,7 +961,7 @@ dataConArgRep arg_ty (HsUnpack Nothing) = (rep_tys, wrappers) dataConArgRep _ (HsUnpack (Just co)) - | let co_rep_ty = pSnd (coercionKind co) + | let co_rep_ty = coercionRKind co , (rep_tys, wrappers) <- dataConArgUnpack co_rep_ty = (rep_tys, wrapCo co co_rep_ty wrappers) |