From: simonpj@microsoft.com <unknown>
Date: Thu, 11 Oct 2007 12:34:26 +0000 (+0000)
Subject: Fix Trac #1680; check for unboxed tuples in TcType.marshalableTyCon
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=0d8da265dadfd9170800a60a7d1a59543da5a6f5

Fix Trac #1680; check for unboxed tuples in TcType.marshalableTyCon
---

diff --git a/compiler/typecheck/TcType.lhs b/compiler/typecheck/TcType.lhs
index 388a28d..1d4d166 100644
--- a/compiler/typecheck/TcType.lhs
+++ b/compiler/typecheck/TcType.lhs
@@ -1276,6 +1276,7 @@ legalFFITyCon tc
 marshalableTyCon dflags tc
   =  (dopt Opt_UnliftedFFITypes dflags 
       && isUnLiftedTyCon tc
+      && not (isUnboxedTupleTyCon tc)
       && case tyConPrimRep tc of	-- Note [Marshalling VoidRep]
 	   VoidRep -> False
 	   other   -> True)