From 9cb332c05f2f85432d2d235907af2c4e83fdff27 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Wed, 13 Feb 2008 13:18:57 +0000 Subject: [PATCH] seq what we actually want to seq, not the seq'ing function --- compiler/coreSyn/PprCore.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/coreSyn/PprCore.lhs b/compiler/coreSyn/PprCore.lhs index f297a79..9d6f0bd 100644 --- a/compiler/coreSyn/PprCore.lhs +++ b/compiler/coreSyn/PprCore.lhs @@ -292,7 +292,7 @@ pprTyVarBndr tyvar pprIdBndr id = ppr id <+> pprIdBndrInfo (idInfo id) pprIdBndrInfo info - = megaSeqIdInfo `seq` doc -- The seq is useful for poking on black holes + = megaSeqIdInfo info `seq` doc -- The seq is useful for poking on black holes where prag_info = inlinePragInfo info occ_info = occInfo info -- 1.7.10.4