From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Thu, 12 Jul 2007 04:54:34 +0000 (+0000)
Subject: Export wrapFamInstBody and unwrapFamInstScrut
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=29969878d9e3f50633e4ae03cc8fab48d60af528;p=ghc-hetmet.git

Export wrapFamInstBody and unwrapFamInstScrut
---

diff --git a/compiler/basicTypes/MkId.lhs b/compiler/basicTypes/MkId.lhs
index f72afb9..229d390 100644
--- a/compiler/basicTypes/MkId.lhs
+++ b/compiler/basicTypes/MkId.lhs
@@ -21,6 +21,7 @@ module MkId (
 	mkPrimOpId, mkFCallId, mkTickBoxOpId, mkBreakPointOpId,
 
 	mkReboxingAlt, wrapNewTypeBody, unwrapNewTypeBody,
+        wrapFamInstBody, unwrapFamInstScrut,
         mkUnpackCase, mkProductBox,
 
 	-- And some particular Ids; see below for why they are wired in