Commit ace2d4a6 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Add -XParallelListComp

parent 704c20f1
......@@ -187,6 +187,7 @@ data DynFlag
| Opt_MagicHash
| Opt_EmptyDataDecls
| Opt_KindSignatures
| Opt_ParallelListComp
-- optimisation opts
| Opt_Strictness
......@@ -1099,6 +1100,7 @@ xFlags = [
( "MagicHash", Opt_MagicHash ),
( "KindSignatures", Opt_KindSignatures ),
( "EmptyDataDecls", Opt_EmptyDataDecls ),
( "ParallelListComp", Opt_ParallelListComp ),
( "FI", Opt_FFI ), -- support `-ffi'...
( "FFI", Opt_FFI ), -- ...and also `-fffi'
( "ForeignFunctionInterface", Opt_FFI ),
......@@ -1145,6 +1147,7 @@ glasgowExtsFlags = [ Opt_GlasgowExts
, Opt_ScopedTypeVariables
, Opt_MultiParamTypeClasses
, Opt_MagicHash
, Opt_ParallelListComp
, Opt_EmptyDataDecls
, Opt_KindSignatures
, Opt_TypeFamilies ]
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment