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
1a74e146
Commit
1a74e146
authored
Jun 05, 2007
by
Simon Marlow
Browse files
fix panic in #1379
parent
90046375
Changes
2
Hide whitespace changes
Inline
Side-by-side
compiler/ghci/InteractiveUI.hs
View file @
1a74e146
...
...
@@ -1471,6 +1471,10 @@ wantNameFromInterpretedModule noCanDo str and_then = do
[]
->
return
()
(
n
:
_
)
->
do
let
modl
=
GHC
.
nameModule
n
if
not
(
GHC
.
isExternalName
n
)
then
noCanDo
n
$
ppr
n
<>
text
" is not defined in an interpreted module"
else
do
is_interpreted
<-
io
(
GHC
.
moduleIsInterpreted
session
modl
)
if
not
is_interpreted
then
noCanDo
n
$
text
"module "
<>
ppr
modl
<>
...
...
compiler/main/GHC.hs
View file @
1a74e146
...
...
@@ -110,7 +110,7 @@ module GHC (
-- ** Names
Name
,
nameModule
,
pprParenSymName
,
nameSrcSpan
,
isExternalName
,
nameModule
,
pprParenSymName
,
nameSrcSpan
,
NamedThing
(
..
),
RdrName
(
Qual
,
Unqual
),
...
...
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