Wibble in tickyDynAlloc (only affects -ticky)

Fall-out from codegen refactoring, undiscovered because
we don't usually build with -ticky

1 files changed, 5 insertions, 2 deletions

diff --git a/compiler/codeGen/CgTicky.hs b/compiler/codeGen/CgTicky.hs
index ef6d301923..1e814fe15d 100644
--- a/compiler/codeGen/CgTicky.hs
+++ b/compiler/codeGen/CgTicky.hs
@@ -245,12 +245,15 @@ tickyDynAlloc :: ClosureInfo -> Code
 -- Called when doing a dynamic heap allocation
 tickyDynAlloc cl_info
   = ifTicky $
-    case closureLFInfo cl_info of
+    case cl_info of {
+      ConInfo {} -> tick_alloc_con ;
+      ClosureInfo { closureLFInfo = lf_info } -> 
+    case lf_info of
 	LFCon {}        -> tick_alloc_con
 	LFReEntrant {}  -> tick_alloc_fun
 	LFThunk {}      -> tick_alloc_thk
         -- black hole
-        _               -> return ()
+        _               -> return () }
   where
 	-- will be needed when we fill in stubs
     _cl_size   = closureSize cl_info