extended ticky to also track "let"s that are not conventional closures
[ghc.git] / compiler / codeGen / StgCmmMonad.hs
index dd7e950..1f3d5c4 100644 (file)
@@ -514,7 +514,7 @@ getTickyCtrLabel = do
         info <- getInfoDown
         return (cgd_ticky info)
 
-setTickyCtrLabel :: CLabel -> FCode () -> FCode ()
+setTickyCtrLabel :: CLabel -> FCode a -> FCode a
 setTickyCtrLabel ticky code = do
         info <- getInfoDown
         withInfoDown code (info {cgd_ticky = ticky})