From 11dca0057d71161c2b93af91f7921a648e6d9558 Mon Sep 17 00:00:00 2001 From: Adam Megacz Date: Sat, 14 May 2011 23:53:03 -0700 Subject: [PATCH] fix type mistake in CodeTypes.hs --- GHC/HetMet/CodeTypes.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/GHC/HetMet/CodeTypes.hs b/GHC/HetMet/CodeTypes.hs index 255e8b4..d629119 100644 --- a/GHC/HetMet/CodeTypes.hs +++ b/GHC/HetMet/CodeTypes.hs @@ -33,9 +33,9 @@ hetmet_flatten :: forall g . GArrowSTKC g => forall x y. - <[ y ]>@g + <[ x -> y ]>@g -> - (g (GArrowUnit g) y) + (g x y) hetmet_flatten x = unG (pga_flatten x) -- After the flattening pass the argument and result types of this -- 1.7.10.4