Clean up

compiler/vectorise/VectType.hs

@@ -14,6 +14,9 @@ import Outputable
 
 import Control.Monad  ( liftM2 )
 
+-- ----------------------------------------------------------------------------
+-- Types
+
 vectTyCon :: TyCon -> VM TyCon
 vectTyCon tc
   | isFunTyCon tc        = builtin closureTyCon

compiler/vectorise/Vectorise.hs

@@ -421,7 +421,3 @@ vectTyAppExpr :: CoreExpr -> CoreExprWithFVs -> [Type] -> VM (CoreExpr, CoreExpr
 vectTyAppExpr lc (_, AnnVar v) tys = vectPolyVar lc v tys
 vectTyAppExpr lc e tys = pprPanic "vectTyAppExpr" (ppr $ deAnnotate e)
 
--- ----------------------------------------------------------------------------
--- Types
-
-