Merge branch 'refs/heads/vect-avoid' into vect-avoid-merge
[ghc.git] / compiler / hsSyn / HsDecls.lhs
index 74e9f19..e5aea84 100644 (file)
@@ -1210,7 +1210,7 @@ type LVectDecl name = Located (VectDecl name)
 data VectDecl name
   = HsVect
       (Located name)
-      (Maybe (LHsExpr name))    -- 'Nothing' => SCALAR declaration
+      (LHsExpr name)
   | HsNoVect
       (Located name)
   | HsVectTypeIn                -- pre type-checking
@@ -1225,9 +1225,9 @@ data VectDecl name
       (Located name)
   | HsVectClassOut              -- post type-checking
       Class
-  | HsVectInstIn                -- pre type-checking (always SCALAR)
+  | HsVectInstIn                -- pre type-checking (always SCALAR)  !!!FIXME: should be superfluous now
       (LHsType name)
-  | HsVectInstOut               -- post type-checking (always SCALAR)
+  | HsVectInstOut               -- post type-checking (always SCALAR) !!!FIXME: should be superfluous now
       ClsInst
   deriving (Data, Typeable)
 
@@ -1247,9 +1247,7 @@ lvectInstDecl (L _ (HsVectInstOut _)) = True
 lvectInstDecl _                       = False
 
 instance OutputableBndr name => Outputable (VectDecl name) where
-  ppr (HsVect v Nothing)
-    = sep [text "{-# VECTORISE SCALAR" <+> ppr v <+> text "#-}" ]
-  ppr (HsVect v (Just rhs))
+  ppr (HsVect v rhs)
     = sep [text "{-# VECTORISE" <+> ppr v,
            nest 4 $ 
              pprExpr (unLoc rhs) <+> text "#-}" ]