diff options
| author | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-03-13 15:25:53 +0300 |
|---|---|---|
| committer | Ömer Sinan Ağacan <omeragacan@gmail.com> | 2018-03-13 15:25:53 +0300 |
| commit | 50972d6f7c53d32d324eb5ca96d0a3f8794bdb38 (patch) | |
| tree | 192edd0ac368e0f3afb49e397d9266a6a8af2bc0 /libraries/ghci | |
| parent | 02b3dad195488c9b0f7457e46319cb3f485570ca (diff) | |
| download | haskell-50972d6f7c53d32d324eb5ca96d0a3f8794bdb38.tar.gz | |
Comment improvements on interpreter breakpoint IO action
[skip ci]
Diffstat (limited to 'libraries/ghci')
| -rw-r--r-- | libraries/ghci/GHCi/Run.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/libraries/ghci/GHCi/Run.hs b/libraries/ghci/GHCi/Run.hs index d05877579a..2988ec202a 100644 --- a/libraries/ghci/GHCi/Run.hs +++ b/libraries/ghci/GHCi/Run.hs @@ -298,7 +298,12 @@ setStepFlag = poke stepFlag 1 resetStepFlag :: IO () resetStepFlag = poke stepFlag 0 -type BreakpointCallback = Int# -> Int# -> Bool -> HValue -> IO () +type BreakpointCallback + = Int# -- the breakpoint index + -> Int# -- the module uniq + -> Bool -- exception? + -> HValue -- the AP_STACK, or exception + -> IO () foreign import ccall "&rts_breakpoint_io_action" breakPointIOAction :: Ptr (StablePtr BreakpointCallback) |