From fc13ed2ff4953be09d7d4fbe24ebab059254b724 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Fri, 19 Dec 2003 10:39:54 +0000
Subject: [PATCH] [project @ 2003-12-19 10:39:54 by simonpj] Accept unboxed
 tuples in type signatures

---
 ghc/compiler/typecheck/TcMType.lhs |    1 +
 1 file changed, 1 insertion(+)

diff --git a/ghc/compiler/typecheck/TcMType.lhs b/ghc/compiler/typecheck/TcMType.lhs
index 41e556a..174f965 100644
--- a/ghc/compiler/typecheck/TcMType.lhs
+++ b/ghc/compiler/typecheck/TcMType.lhs
@@ -584,6 +584,7 @@ checkValidType ctxt ty
 	ubx_tup | not gla_exts = UT_NotOk
 		| otherwise    = case ctxt of
 				   TySynCtxt _ -> UT_Ok
+				   ExprSigCtxt -> UT_Ok
 				   other       -> UT_NotOk
 		-- Unboxed tuples ok in function results,
 		-- but for type synonyms we allow them even at
-- 
1.7.10.4