X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FBreakpoints.hs;h=14d9ea299d2cd7ce9cfeb53ee237a69e4d4c14d8;hb=376101055fb111ebd52b5ef1fb76e00334b44304;hp=8bb171674d391ebb080442477cc2dd7060ee6bf1;hpb=ead424357937b23f30295608b467aacbc3a8a8bc;p=ghc-hetmet.git

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