X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FdeSugar%2FDsBreakpoint.lhs;fp=compiler%2FdeSugar%2FDsBreakpoint.lhs;h=07b3ec91c72e62d378813d0828b6a037069227e4;hb=60ade746bb87a5aa76f5d6d2ca97027fc6356dc7;hp=869cde64b24eacae90d721c4d51d29f4701cf0f0;hpb=cf411c9ae5d61d6e5baa5e5e6b0ad9803b041236;p=ghc-hetmet.git

diff --git a/compiler/deSugar/DsBreakpoint.lhs b/compiler/deSugar/DsBreakpoint.lhs
index 869cde6..07b3ec9 100644
--- a/compiler/deSugar/DsBreakpoint.lhs
+++ b/compiler/deSugar/DsBreakpoint.lhs
@@ -39,6 +39,7 @@ import Outputable
 import ErrUtils
 import FastString
 import DynFlags
+import MkId
  
 import DsMonad 
 import {-#SOURCE#-}DsExpr ( dsLExpr ) 
@@ -77,7 +78,8 @@ mkBreakpointExpr loc bkptFuncId ty = do
                               , HsLit (HsInt (fromIntegral site))]
             funE  = l$ HsVar jumpFuncId
             ptrE  = l (HsLit (HsInt (fromIntegral (I# (addr2Int# addr#)))))
-            locsE = l locals
+            locsE = l (HsApp (l(HsWrap (WpTyApp (mkListTy opaqueTy)) (HsVar lazyId))) 
+                             (l locals))
             locE  = l locInfo
             msgE  = l (srcSpanLit loc)
         return $