Commit 3adaacde authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Re-add accidentally-deleted line

This adds a line I deleted by mistake in

  commit db71d971
  Author: Simon Peyton Jones <simonpj@microsoft.com>
  Date:   Fri Oct 14 17:40:51 2016 +0100

      Reduce trace output slightly

Sorry about that!
parent f43db14e
...@@ -3107,7 +3107,8 @@ matchFam tycon args = wrapTcS $ matchFamTcM tycon args ...@@ -3107,7 +3107,8 @@ matchFam tycon args = wrapTcS $ matchFamTcM tycon args
matchFamTcM :: TyCon -> [Type] -> TcM (Maybe (Coercion, TcType)) matchFamTcM :: TyCon -> [Type] -> TcM (Maybe (Coercion, TcType))
-- Given (F tys) return (ty, co), where co :: F tys ~ ty -- Given (F tys) return (ty, co), where co :: F tys ~ ty
matchFamTcM tycon args matchFamTcM tycon args
= do { let match_fam_result = do { fam_envs <- FamInst.tcGetFamInstEnvs
; let match_fam_result
= reduceTyFamApp_maybe fam_envs Nominal tycon args = reduceTyFamApp_maybe fam_envs Nominal tycon args
; TcM.traceTc "matchFamTcM" $ ; TcM.traceTc "matchFamTcM" $
vcat [ text "Matching:" <+> ppr (mkTyConApp tycon args) vcat [ text "Matching:" <+> ppr (mkTyConApp tycon args)
......
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