X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fstranal%2FDmdAnal.lhs;h=ec5d6e24bbe0f33f0b36c88743ee74a01a7c7ae3;hb=48297725266e69d15c02c46e454d8260e58de47a;hp=f7cef99ebd3d670635514201f4bbad4f1c1ce767;hpb=e2c87ca75e8f4833145c31a3b7b2ffeefeae7679;p=ghc-hetmet.git

diff --git a/ghc/compiler/stranal/DmdAnal.lhs b/ghc/compiler/stranal/DmdAnal.lhs
index f7cef99..ec5d6e2 100644
--- a/ghc/compiler/stranal/DmdAnal.lhs
+++ b/ghc/compiler/stranal/DmdAnal.lhs
@@ -57,6 +57,8 @@ instance Outputable TopLevelFlag where
 \begin{code}
 dmdAnalPgm :: DynFlags -> [CoreBind] -> IO [CoreBind]
 dmdAnalPgm dflags binds
+  = panic "dmdAnalPgm called"
+dmdAnalPgm dflags binds
   = do {
 	showPass dflags "Demand analysis" ;
 	let { binds_plus_dmds = do_prog binds ;