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