Re-working of the breakpoint support

[ghc-hetmet.git] / compiler / deSugar / DsBinds.lhs

diff --git a/compiler/deSugar/DsBinds.lhs b/compiler/deSugar/DsBinds.lhs
index d974c05..51d6daf 100644 (file)
--- a/compiler/deSugar/DsBinds.lhs
+++ b/compiler/deSugar/DsBinds.lhs
@@ -23,7 +23,6 @@ import {-# SOURCE #-} Match( matchWrapper )
 import DsMonad
 import DsGRHSs
 import DsUtils
-import DsBreakpoint
 
 import HsSyn           -- lots of things
 import CoreSyn         -- lots of things
@@ -63,23 +62,7 @@ import Data.List
 
 \begin{code}
 dsTopLHsBinds :: AutoScc -> LHsBinds Id -> DsM [(Id,CoreExpr)]
-dsTopLHsBinds auto_scc binds = do
-  mb_mod_name_ref <- getModNameRefDs
-  debugging <- breakpoints_enabled
-  case mb_mod_name_ref of 
-    Nothing | debugging -> do  -- Inject a CAF with the module name as literal
-      mod <- getModuleDs
-      mod_name_ref <- do
-                 u <- newUnique 
-                 let n = mkSystemName u (mkVarOcc "_module")
-                 return (mkLocalId n stringTy)
-      let mod_name = moduleNameFS$ moduleName mod
-      mod_lit <- dsExpr (HsLit (HsString mod_name))
-      withModNameRefDs mod_name_ref $ do
-                 res <- ds_lhs_binds auto_scc binds
-                 return$ (mod_name_ref, mod_lit) : res
-    _  -> ds_lhs_binds auto_scc binds
-
+dsTopLHsBinds auto_scc binds = ds_lhs_binds auto_scc binds
 
 dsLHsBinds :: LHsBinds Id -> DsM [(Id,CoreExpr)]
 dsLHsBinds binds = ds_lhs_binds NoSccs binds