Mainly, rename LiteralTy to LitTy
[ghc.git] / compiler / vectorise / Vectorise / Convert.hs
index 751fdac..048362d 100644 (file)
@@ -78,11 +78,11 @@ identityConv (TyConApp tycon tys)
   = do { mapM_ identityConv tys
        ; identityConvTyCon tycon
        }
-identityConv (LiteralTy _)  = 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"
+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.