X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FdeSugar%2FDsBreakpoint.lhs;fp=compiler%2FdeSugar%2FDsBreakpoint.lhs;h=1d17c97aa4b86e09340ae09d7fe94f09ea086bf8;hb=848d28cc8df29b3ff10529dcfbc4596355935c84;hp=a0886cbed8165fc17a76fc71522c369820d92aa7;hpb=01314483b22813020e4746cc32d97a0f9fb6e806;p=ghc-hetmet.git

diff --git a/compiler/deSugar/DsBreakpoint.lhs b/compiler/deSugar/DsBreakpoint.lhs
index a0886cb..1d17c97 100644
--- a/compiler/deSugar/DsBreakpoint.lhs
+++ b/compiler/deSugar/DsBreakpoint.lhs
@@ -59,7 +59,8 @@ mkBreakpointExpr loc bkptFuncId = do
         let scope = filter (isValidType .idType ) scope'
             mod_name = moduleNameFS$ moduleName mod
         if null scope && instrumenting
-         then return (l$ HsVar lazyId) 
+           -- need to return some expresion, hence lazy is used here as a noop (hopefully)
+         then return (l$ HsVar lazyId)  
          else do
           when (not instrumenting) $
               warnDs (text "Extracted ids:" <+> (ppr scope $$