From 5017523936ee07507867f7523b2aa02a2f4708ac Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sat, 2 Aug 1997 21:27:13 +0000
Subject: [PATCH] [project @ 1997-08-02 21:27:13 by sof] Re-export FCode(..),
 and StgBinderInfo&UpdateFlag to close up interface

---
 ghc/compiler/codeGen/ClosureInfo.lhs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/ghc/compiler/codeGen/ClosureInfo.lhs b/ghc/compiler/codeGen/ClosureInfo.lhs
index 7bade9938866..a71f3c05ad74 100644
--- a/ghc/compiler/codeGen/ClosureInfo.lhs
+++ b/ghc/compiler/codeGen/ClosureInfo.lhs
@@ -17,6 +17,7 @@ module ClosureInfo (
 
 	mkClosureLFInfo, mkConLFInfo, mkSelectorLFInfo, mkVapLFInfo,
 	mkLFImported, mkLFArgument, mkLFLetNoEscape,
+	UpdateFlag,
 
 	closureSize, closureHdrSize,
 	closureNonHdrSize, closureSizeWithoutFixedHdr,
@@ -27,12 +28,15 @@ module ClosureInfo (
 	layOutStaticNoFVClosure, layOutPhantomClosure,
 	mkVirtHeapOffsets,
 
-	nodeMustPointToIt, getEntryConvention,
+	nodeMustPointToIt, getEntryConvention, 
+	SYN_IE(FCode), CgInfoDownwards, CgState, 
+
 	blackHoleOnEntry,
 
 	staticClosureRequired,
 	slowFunEntryCodeRequired, funInfoTableRequired,
 	stdVapRequired, noUpdVapRequired,
+	StgBinderInfo,
 
 	closureId, infoTableLabelFromCI, fastLabelFromCI,
 	closureLabelFromCI,
@@ -40,6 +44,7 @@ module ClosureInfo (
 	closureLFInfo, closureSMRep, closureUpdReqd,
 	closureSingleEntry, closureSemiTag, closureType,
 	closureReturnsUnboxedType, getStandardFormThunkInfo,
+	GenStgArg,
 
 	isToplevClosure,
 	closureKind, closureTypeDescr,		-- profiling
-- 
GitLab