diff options
| author | Ian Lynagh <igloo@earth.li> | 2007-07-08 13:42:52 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2007-07-08 13:42:52 +0000 |
| commit | ace2d4a6b98b30397ba9f572aff64c13524cad3b (patch) | |
| tree | b4d24521ae7fff797731e4230de0b394450a2e7e /compiler/rename | |
| parent | 704c20f11cbb01c36d13472042dc5ace9b1bb0e0 (diff) | |
| download | haskell-ace2d4a6b98b30397ba9f572aff64c13524cad3b.tar.gz | |
Add -XParallelListComp
Diffstat (limited to 'compiler/rename')
| -rw-r--r-- | compiler/rename/RnExpr.lhs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/rename/RnExpr.lhs b/compiler/rename/RnExpr.lhs index ff6e4123bb..6fe6904d42 100644 --- a/compiler/rename/RnExpr.lhs +++ b/compiler/rename/RnExpr.lhs @@ -645,8 +645,8 @@ rnStmt ctxt (RecStmt rec_stmts _ _ _ _) thing_inside doc = text "In a recursive do statement" rnStmt ctxt (ParStmt segs) thing_inside - = do { opt_GlasgowExts <- doptM Opt_GlasgowExts - ; checkM opt_GlasgowExts parStmtErr + = do { parallel_list_comp <- doptM Opt_ParallelListComp + ; checkM parallel_list_comp parStmtErr ; orig_lcl_env <- getLocalRdrEnv ; ((segs',thing), fvs) <- go orig_lcl_env [] segs ; return ((ParStmt segs', thing), fvs) } @@ -935,7 +935,7 @@ patSynErr e = do { addErr (sep [ptext SLIT("Pattern syntax in expression context nest 4 (ppr e)]) ; return (EWildPat, emptyFVs) } -parStmtErr = addErr (ptext SLIT("Illegal parallel list comprehension: use -fglasgow-exts")) +parStmtErr = addErr (ptext SLIT("Illegal parallel list comprehension: use -XParallelListComp")) badIpBinds what binds = hang (ptext SLIT("Implicit-parameter bindings illegal in") <+> what) |