compiler/ghci/Debugger.hs-boot


1
2
3
4
5
6
7
8
9
10
11
12

module Debugger where
import Breakpoints
import qualified Data.Map as Map
import Data.Array.Unboxed


data BkptTable a  = BkptTable { 
                           -- | An array of breaks, indexed by site number
     breakpoints :: Map.Map a (UArray Int Bool)  
                           -- | A list of lines, each line can have zero or more sites, which are annotated with a column number
   , sites       :: Map.Map a [[(SiteNumber, Int)]] 
   }