From 435af9cf41c85ee69da5ecdaad5830e79c9c33d7 Mon Sep 17 00:00:00 2001
From: kglynn <unknown>
Date: Fri, 9 Apr 1999 01:55:15 +0000
Subject: [PATCH] [project @ 1999-04-09 01:55:15 by kglynn] (keving)
Test Update: Re-instate support for -fprint-core
---
ghc/compiler/simplCore/SimplCore.lhs | 3 +++
1 file changed, 3 insertions(+)
diff --git a/ghc/compiler/simplCore/SimplCore.lhs b/ghc/compiler/simplCore/SimplCore.lhs
index e3447f04bdaa..dfd9ac5c5366 100644
--- a/ghc/compiler/simplCore/SimplCore.lhs
+++ b/ghc/compiler/simplCore/SimplCore.lhs
@@ -114,6 +114,9 @@ doCorePass us binds CoreDoFullLaziness = _scc_ "CoreFloating" floatOutwa
doCorePass us binds CoreDoStaticArgs = _scc_ "CoreStaticArgs" doStaticArgs us binds
doCorePass us binds CoreDoStrictness = _scc_ "CoreStranal" saWwTopBinds us binds
doCorePass us binds CoreDoSpecialising = _scc_ "Specialise" specProgram us binds
+doCorePass us binds CoreDoPrintCore = _scc_ "PrintCore" do
+ putStr (showSDoc $ pprCoreBindings binds)
+ return binds
\end{code}
--
GitLab