Commit 2c634afb authored by mnislaih's avatar mnislaih

Unbreak HEAD

My previous patch was creating problems with hs-boot files. 
parent 3f9e522b
......@@ -65,9 +65,9 @@ import Data.List
dsTopLHsBinds :: AutoScc -> LHsBinds Id -> DsM [(Id,CoreExpr)]
dsTopLHsBinds auto_scc binds = do
mb_mod_name_ref <- getModNameRefDs
debugging <- debug_enabled
case mb_mod_name_ref of
Just _ -> ds_lhs_binds auto_scc binds
Nothing -> do -- Inject a CAF with the module name as literal
Nothing | debugging -> do -- Inject a CAF with the module name as literal
mod <- getModuleDs
mod_name_ref <- do
u <- newUnique
......@@ -78,6 +78,8 @@ dsTopLHsBinds auto_scc binds = do
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
dsLHsBinds :: LHsBinds Id -> DsM [(Id,CoreExpr)]
dsLHsBinds binds = ds_lhs_binds NoSccs binds
......
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