X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FdeSugar%2FDsBinds.lhs;h=51d6daf6cea90f8ea7f283560c50e5f272831680;hp=d974c0579f4719d12a271bc1a19fbe6fc07cbd3b;hb=cdce647711c0f46f5799b24de087622cb77e647f;hpb=dc8ffcb9797ade3e3a68e6ec0a89fe2e7444e0ef

diff --git a/compiler/deSugar/DsBinds.lhs b/compiler/deSugar/DsBinds.lhs
index d974c05..51d6daf 100644
--- 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