diff options
Diffstat (limited to 'compiler/stranal/DmdAnal.lhs')
| -rw-r--r-- | compiler/stranal/DmdAnal.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/stranal/DmdAnal.lhs b/compiler/stranal/DmdAnal.lhs index fab75a0601..9955490c25 100644 --- a/compiler/stranal/DmdAnal.lhs +++ b/compiler/stranal/DmdAnal.lhs @@ -62,14 +62,14 @@ To think about %************************************************************************ \begin{code} -dmdAnalPgm :: DynFlags -> [CoreBind] -> IO [CoreBind] +dmdAnalPgm :: DynFlags -> CoreProgram -> IO CoreProgram dmdAnalPgm _ binds = do { let { binds_plus_dmds = do_prog binds } ; return binds_plus_dmds } where - do_prog :: [CoreBind] -> [CoreBind] + do_prog :: CoreProgram -> CoreProgram do_prog binds = snd $ mapAccumL dmdAnalTopBind emptySigEnv binds dmdAnalTopBind :: SigEnv |