From 29969878d9e3f50633e4ae03cc8fab48d60af528 Mon Sep 17 00:00:00 2001
From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Thu, 12 Jul 2007 04:54:34 +0000
Subject: [PATCH] Export wrapFamInstBody and unwrapFamInstScrut

---
 compiler/basicTypes/MkId.lhs |    1 +
 1 file changed, 1 insertion(+)

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
-- 
1.7.10.4