From: Roman Leshchinskiy <rl@cse.unsw.edu.au>
Date: Sun, 18 Nov 2007 05:19:26 +0000 (+0000)
Subject: Fix bug in conversion unvect/vect
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=d622593f562e74f734b4b6929de5d8258cf30278

Fix bug in conversion unvect/vect
---

diff --git a/compiler/vectorise/VectType.hs b/compiler/vectorise/VectType.hs
index 64de665..9bf11e6 100644
--- a/compiler/vectorise/VectType.hs
+++ b/compiler/vectorise/VectType.hs
@@ -1042,6 +1042,7 @@ identityConvTyCon :: TyCon -> VM ()
 identityConvTyCon tc
   | isBoxedTupleTyCon tc = return ()
   | isUnLiftedTyCon tc   = return ()
-  | otherwise            = maybeV (lookupTyCon tc) >> return ()
-
+  | otherwise            = do
+                             tc' <- maybeV (lookupTyCon tc)
+                             if tc == tc' then return () else noV