From 81013c3eff32c6f2959e88fc0f73a77d9d35ca77 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Sun, 22 Jun 2008 14:15:59 +0000
Subject: [PATCH] Add GHC.Exts.maxTupleSize :: Int, the size of the largest
 tuple supported

---
 GHC/Exts.hs |    7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/GHC/Exts.hs b/GHC/Exts.hs
index 5c3c495..7dc604f 100644
--- a/GHC/Exts.hs
+++ b/GHC/Exts.hs
@@ -19,6 +19,9 @@ module GHC.Exts
         Char(..),
         Ptr(..), FunPtr(..),
 
+        -- * The maximum tuple size
+        maxTupleSize,
+
         -- * Primitive operations
         module GHC.Prim,
         shiftL#, shiftRL#, iShiftL#, iShiftRA#, iShiftRL#,
@@ -54,6 +57,10 @@ import GHC.Ptr
 import Data.String
 import Data.List
 
+-- XXX This should really be in Data.Tuple, where the definitions are
+maxTupleSize :: Int
+maxTupleSize = 62
+
 -- | The 'Down' type allows you to reverse sort order conveniently.  A value of type
 -- @'Down' a@ contains a value of type @a@ (represented as @'Down' a@).
 -- If @a@ has an @'Ord'@ instance associated with it then comparing two
-- 
1.7.10.4