Skip to content
Projects
Groups
Snippets
Help
Loading...
Help
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
G
gargantext-ihaskell
Project
Project
Details
Activity
Releases
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
gargantext
gargantext-ihaskell
Commits
d851a6e1
Commit
d851a6e1
authored
Mar 05, 2015
by
Andrew Gibiansky
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Second try at a fix for 7.6.3
parent
0c4149d7
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
2 deletions
+9
-2
Util.hs
src/IHaskell/Eval/Util.hs
+9
-2
No files found.
src/IHaskell/Eval/Util.hs
View file @
d851a6e1
...
@@ -88,14 +88,21 @@ pprDynFlags :: Bool -- ^ Whether to include flags which are on by default
...
@@ -88,14 +88,21 @@ pprDynFlags :: Bool -- ^ Whether to include flags which are on by default
->
SDoc
->
SDoc
pprDynFlags
show_all
dflags
=
pprDynFlags
show_all
dflags
=
vcat
[
vcat
[
#
if
MIN_VERSION_ghc
(
7
,
8
,
0
)
text
"GHCi-specific dynamic flag settings:"
$$
text
"GHCi-specific dynamic flag settings:"
$$
nest
2
(
vcat
(
map
(
setting
gopt
)
ghciFlags
)),
nest
2
(
vcat
(
map
(
setting
gopt
)
ghciFlags
)),
#
if
MIN_VERSION_ghc
(
7
,
8
,
0
)
text
"other dynamic, non-language, flag settings:"
$$
text
"other dynamic, non-language, flag settings:"
$$
nest
2
(
vcat
(
map
(
setting
gopt
)
others
)),
nest
2
(
vcat
(
map
(
setting
gopt
)
others
)),
#
endif
text
"warning settings:"
$$
text
"warning settings:"
$$
nest
2
(
vcat
(
map
(
setting
wopt
)
DynFlags
.
fWarningFlags
))
nest
2
(
vcat
(
map
(
setting
wopt
)
DynFlags
.
fWarningFlags
))
#
else
text
"GHCi-specific dynamic flag settings:"
$$
nest
2
(
vcat
(
map
(
setting
dopt
)
ghciFlags
)),
text
"other dynamic, non-language, flag settings:"
$$
nest
2
(
vcat
(
map
(
setting
dopt
)
others
)),
text
"warning settings:"
$$
nest
2
(
vcat
(
map
(
setting
wopt
)
DynFlags
.
fWarningFlags
))
#
endif
]
]
where
where
setting
test
flag
setting
test
flag
...
...
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