-\begin{code}
-#ifdef DPH
-data AnnCoreParQuals binder bindee annot
- = AnnCoAndQuals (AnnCoreParQuals binder bindee annot)
- (AnnCoreParQuals binder bindee annot)
- | AnnCoParFilter (AnnCoreExpr binder bindee annot)
- | AnnCoDrawnGen [binder]
- (binder)
- (AnnCoreExpr binder bindee annot)
- | AnnCoIndexGen [AnnCoreExpr binder bindee annot]
- (binder)
- (AnnCoreExpr binder bindee annot)
-#endif {- Data Parallel Haskell -}
-\end{code}
-
-\begin{code}
-data AnnCoreCaseAlternatives binder bindee annot
- = AnnCoAlgAlts [(Id,
- [binder],
- AnnCoreExpr binder bindee annot)]
- (AnnCoreCaseDefault binder bindee annot)
- | AnnCoPrimAlts [(BasicLit,
- AnnCoreExpr binder bindee annot)]
- (AnnCoreCaseDefault binder bindee annot)
-#ifdef DPH
- | AnnCoParAlgAlts TyCon
- Int
- [binder]
- [(Id,
- AnnCoreExpr binder bindee annot)]
- (AnnCoreCaseDefault binder bindee annot)
- | AnnCoParPrimAlts TyCon
- Int
- [(BasicLit,
- AnnCoreExpr binder bindee annot)]
- (AnnCoreCaseDefault binder bindee annot)
-#endif {- Data Parallel Haskell -}
-
-data AnnCoreCaseDefault binder bindee annot
- = AnnCoNoDefault
- | AnnCoBindDefault binder
- (AnnCoreExpr binder bindee annot)