Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
66fffe21
Commit
66fffe21
authored
Jul 31, 2008
by
batterseapower
Browse files
Document InteractiveEval and follow OccName change
parent
25fd6e10
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/main/InteractiveEval.hs
View file @
66fffe21
...
@@ -528,7 +528,7 @@ bindLocalsAtBreakpoint hsc_env apStack Nothing = do
...
@@ -528,7 +528,7 @@ bindLocalsAtBreakpoint hsc_env apStack Nothing = do
let
exn_fs
=
fsLit
"_exception"
let
exn_fs
=
fsLit
"_exception"
exn_name
=
mkInternalName
(
getUnique
exn_fs
)
(
mkVarOccFS
exn_fs
)
span
exn_name
=
mkInternalName
(
getUnique
exn_fs
)
(
mkVarOccFS
exn_fs
)
span
e_fs
=
fsLit
"e"
e_fs
=
fsLit
"e"
e_name
=
mkInternalName
(
getUnique
e_fs
)
(
mkTyVarOcc
e_fs
)
span
e_name
=
mkInternalName
(
getUnique
e_fs
)
(
mkTyVarOcc
FS
e_fs
)
span
e_tyvar
=
mkTcTyVar
e_name
liftedTypeKind
(
SkolemTv
RuntimeUnkSkol
)
e_tyvar
=
mkTcTyVar
e_name
liftedTypeKind
(
SkolemTv
RuntimeUnkSkol
)
exn_id
=
Id
.
mkGlobalId
VanillaGlobal
exn_name
(
mkTyVarTy
e_tyvar
)
exn_id
=
Id
.
mkGlobalId
VanillaGlobal
exn_name
(
mkTyVarTy
e_tyvar
)
vanillaIdInfo
vanillaIdInfo
...
@@ -807,7 +807,7 @@ getContext :: Session -> IO ([Module],[Module])
...
@@ -807,7 +807,7 @@ getContext :: Session -> IO ([Module],[Module])
getContext
s
=
withSession
s
(
\
HscEnv
{
hsc_IC
=
ic
}
->
getContext
s
=
withSession
s
(
\
HscEnv
{
hsc_IC
=
ic
}
->
return
(
ic_toplev_scope
ic
,
ic_exports
ic
))
return
(
ic_toplev_scope
ic
,
ic_exports
ic
))
-- | Returns
'
True
'
if the specified module is interpreted, and hence has
-- | Returns
@
True
@
if the specified module is interpreted, and hence has
-- its full top-level scope available.
-- its full top-level scope available.
moduleIsInterpreted
::
Session
->
Module
->
IO
Bool
moduleIsInterpreted
::
Session
->
Module
->
IO
Bool
moduleIsInterpreted
s
modl
=
withSession
s
$
\
h
->
moduleIsInterpreted
s
modl
=
withSession
s
$
\
h
->
...
...
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