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
79d21c0d
Commit
79d21c0d
authored
Jan 16, 2007
by
Simon Marlow
Browse files
allow 'ghci -threaded' (fixes #1101)
parent
a89ac493
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/main/Main.hs
View file @
79d21c0d
...
...
@@ -31,7 +31,7 @@ import Config ( cProjectVersion, cBooterVersion, cProjectName )
import
Packages
(
dumpPackages
)
import
DriverPhases
(
Phase
(
..
),
isSourceFilename
,
anyHsc
,
startPhase
,
isHaskellSrcFilename
)
import
StaticFlags
(
staticFlags
,
v_Ld_inputs
,
parseStaticFlags
)
import
StaticFlags
import
DynFlags
(
defaultDynFlags
)
import
BasicTypes
(
failed
)
import
ErrUtils
(
putMsg
)
...
...
@@ -213,9 +213,10 @@ checkOptions cli_mode dflags srcs objs = do
when
(
notNull
unknown_opts
)
(
unknownFlagsErr
unknown_opts
)
-- -prof and --interactive are not a good combination
when
(
notNull
(
wayNames
dflags
)
&&
isInterpretiveMode
cli_mode
)
$
when
(
notNull
(
filter
(
/=
WayThreaded
)
(
wayNames
dflags
))
&&
isInterpretiveMode
cli_mode
)
$
do
throwDyn
(
UsageError
"--interactive can't be used with -prof, -ticky, -unreg
or -smp
."
)
"--interactive can't be used with -prof, -ticky,
or
-unreg."
)
-- -ohi sanity check
if
(
isJust
(
outputHi
dflags
)
&&
(
isCompManagerMode
cli_mode
||
srcs
`
lengthExceeds
`
1
))
...
...
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