Merge branch 'master' of http://darcs.haskell.org/ghc into ghc-new-flavor

1 files changed, 5 insertions, 4 deletions

diff --git a/compiler/vectorise/Vectorise/Convert.hs b/compiler/vectorise/Vectorise/Convert.hs
index cebee633ee..048362d59c 100644
--- a/compiler/vectorise/Vectorise/Convert.hs
+++ b/compiler/vectorise/Vectorise/Convert.hs
@@ -78,10 +78,11 @@ identityConv (TyConApp tycon tys)
   = do { mapM_ identityConv tys
        ; identityConvTyCon tycon
        }
-identityConv (TyVarTy _)    = noV $ text "identityConv: type variable changes under vectorisation"
-identityConv (AppTy   _ _)  = noV $ text "identityConv: type appl. changes under vectorisation"
-identityConv (FunTy    _ _) = noV $ text "identityConv: function type changes under vectorisation"
-identityConv (ForAllTy _ _) = noV $ text "identityConv: quantified type changes under vectorisation"
+identityConv (LitTy {})    = noV $ text "identityConv: not sure about literal types under vectorisation"
+identityConv (TyVarTy {})  = noV $ text "identityConv: type variable changes under vectorisation"
+identityConv (AppTy {})    = noV $ text "identityConv: type appl. changes under vectorisation"
+identityConv (FunTy {})    = noV $ text "identityConv: function type changes under vectorisation"
+identityConv (ForAllTy {}) = noV $ text "identityConv: quantified type changes under vectorisation"
 
 -- |Check that this type constructor is neutral under type vectorisation — i.e., it is not altered
 -- by vectorisation as they contain no parallel arrays.