White space only
authorSimon Peyton Jones <simonpj@microsoft.com>
Thu, 9 Jul 2015 12:00:59 +0000 (13:00 +0100)
committerSimon Peyton Jones <simonpj@microsoft.com>
Thu, 9 Jul 2015 12:04:04 +0000 (13:04 +0100)
compiler/typecheck/TcBinds.hs

index ac36908..de49c91 100644 (file)
@@ -690,7 +690,7 @@ mkInferredPolyId poly_name qtvs theta mono_ty
 
        ; my_theta <- pickQuantifiablePreds my_tvs2 theta
 
-       ; let my_tvs   = filter (`elemVarSet` my_tvs2) qtvs   -- Maintain original order
+       ; let my_tvs = filter (`elemVarSet` my_tvs2) qtvs   -- Maintain original order
              inferred_poly_ty = mkSigmaTy my_tvs my_theta norm_mono_ty
 
        ; addErrCtxtM (mk_bind_msg True False poly_name inferred_poly_ty) $