Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
ace2d4a6
Commit
ace2d4a6
authored
Jul 08, 2007
by
Ian Lynagh
Browse files
Add -XParallelListComp
parent
704c20f1
Changes
2
Hide whitespace changes
Inline
Side-by-side
compiler/main/DynFlags.hs
View file @
ace2d4a6
...
...
@@ -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
]
...
...
compiler/rename/RnExpr.lhs
View file @
ace2d4a6
...
...
@@ -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)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment