Commit b7e5c302 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

White space only

parent cb24e684
......@@ -1567,18 +1567,15 @@ mkNewTypeEqn dflags overlap_mode tvs
-- we are gong to get all the methods for the newtype
-- dictionary
-- Next we figure out what superclass dictionaries to use
-- See Note [Newtype deriving superclasses] above
cls_tyvars = classTyVars cls
dfun_tvs = tyCoVarsOfTypes inst_tys
inst_ty = mkTyConApp tycon tc_args
inst_tys = cls_tys ++ [inst_ty]
sc_theta =
mkThetaOrigin DerivOrigin TypeLevel $
substTheta (zipOpenTCvSubst cls_tyvars inst_tys) (classSCTheta cls)
sc_theta = mkThetaOrigin DerivOrigin TypeLevel $
substTheta (zipOpenTCvSubst cls_tyvars inst_tys) $
classSCTheta cls
-- Next we collect Coercible constraints between
-- the Class method types, instantiated with the representation and the
......
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