Breakpoint code instrumentation

[ghc-hetmet.git] / compiler / main / Breakpoints.hs

diff --git a/compiler/main/Breakpoints.hs b/compiler/main/Breakpoints.hs
index 8bb1716..14d9ea2 100644 (file)
--- a/compiler/main/Breakpoints.hs
+++ b/compiler/main/Breakpoints.hs
@@ -23,3 +23,9 @@ nullBkptHandler = BkptHandler {
 \r
 type BkptLocation a = (a, SiteNumber)\r
 type SiteNumber   = Int\r
+\r
+type SiteMap      = [(SiteNumber, Coord)]\r
+type Coord        = (Int, Int)\r
+\r
+noDbgSites :: SiteMap\r
+noDbgSites = []\r