X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FHscTypes.lhs;h=99495fe4d6d75e3a61b39f3b84ec23b77a0bda57;hp=1101e8627b4388178b2e7654591aa9a4ee95eb9c;hb=367b0590cc0d8ba3d1561c85b366a183b8a71d24;hpb=cb429c8ac482f3b294f709b5ba50423fdf1f35b0

diff --git a/compiler/main/HscTypes.lhs b/compiler/main/HscTypes.lhs
index 1101e86..99495fe 100644
--- a/compiler/main/HscTypes.lhs
+++ b/compiler/main/HscTypes.lhs
@@ -1253,6 +1253,8 @@ data ModBreaks
         -- indicating which breakpoints are enabled.
    , modBreaks_locs :: !(Array BreakIndex SrcSpan)
         -- An array giving the source span of each breakpoint.
+   , modBreaks_vars :: !(Array BreakIndex [OccName])
+        -- An array giving the names of the free variables at each breakpoint.
    }
 
 emptyModBreaks :: ModBreaks
@@ -1260,5 +1262,6 @@ emptyModBreaks = ModBreaks
    { modBreaks_flags = error "ModBreaks.modBreaks_array not initialised"
          -- Todo: can we avoid this? 
    , modBreaks_locs = array (0,-1) []
+   , modBreaks_vars = array (0,-1) []
    }
 \end{code}