From d622593f562e74f734b4b6929de5d8258cf30278 Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Sun, 18 Nov 2007 05:19:26 +0000 Subject: [PATCH] Fix bug in conversion unvect/vect --- compiler/vectorise/VectType.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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 -- 1.7.10.4