Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
GHC
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Locked Files
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Iterations
Merge Requests
0
Merge Requests
0
Requirements
Requirements
List
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Security & Compliance
Security & Compliance
Dependency List
License Compliance
Operations
Operations
Incidents
Environments
Packages & Registries
Packages & Registries
Package Registry
Container Registry
Analytics
Analytics
CI / CD
Code Review
Insights
Issue
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
Alex D
GHC
Commits
ace2d4a6
Commit
ace2d4a6
authored
Jul 08, 2007
by
Ian Lynagh
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Add -XParallelListComp
parent
704c20f1
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
6 additions
and
3 deletions
+6
-3
compiler/main/DynFlags.hs
compiler/main/DynFlags.hs
+3
-0
compiler/rename/RnExpr.lhs
compiler/rename/RnExpr.lhs
+3
-3
No files found.
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
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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