Commit 728cfb01 authored by mnislaih's avatar mnislaih

Wibble

parent 8406c69e
......@@ -65,7 +65,7 @@ import Data.List
dsTopLHsBinds :: AutoScc -> LHsBinds Id -> DsM [(Id,CoreExpr)]
dsTopLHsBinds auto_scc binds = do
mb_mod_name_ref <- getModNameRefDs
debugging <- debug_enabled
debugging <- breakpoints_enabled
case mb_mod_name_ref of
Nothing | debugging -> do -- Inject a CAF with the module name as literal
mod <- getModuleDs
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment