mk_pred_strict_mark :: PredType -> HsSrcBang
mk_pred_strict_mark pred
  | isEqPred pred = HsUnpack Nothing    -- Note [Unpack equality predicates]
  | otherwise     = HsNoBang
mk_pred_strict_mark :: PredType -> HsSrcBang
mk_pred_strict_mark pred
  | isEqPred pred = HsUnpack Nothing    -- Note [Unpack equality predicates]
  | otherwise     = HsNoBang
mk_pred_strict_mark pred
  | isEqPred pred = HsUnpack Nothing    -- Note [Unpack equality predicates]
  | otherwise     = HsNoBang