[don't propegate info into temporary vars
John Meacham <john@repetae.net>**20060719033155] hunk ./E/WorkerWrapper.hs 44
-wrappable dataTable tvr e@ELam {} = ans where
-    cpr = maybe Top id (Info.lookup (tvrInfo tvr))
-    Demand.DemandSignature _ (_ Demand.:=> sa) = maybe Demand.absSig id (Info.lookup (tvrInfo tvr))
+wrappable dataTable mtvr e@ELam {} = ans where
+    cpr = maybe Top id (Info.lookup (tvrInfo mtvr))
+    Demand.DemandSignature _ (_ Demand.:=> sa) = maybe Demand.absSig id (Info.lookup (tvrInfo mtvr))
hunk ./E/WorkerWrapper.hs 51
-            as con = [ g t { tvrIdent = n, tvrType = st } demand  | st <- slotTypes dataTable (conName con) tt | n <- tmpNames Val (tvrIdent t) | demand <- fsubs subs]
+            as con = [ g TVr { tvrIdent = n, tvrType = st, tvrInfo = mempty } demand  | st <- slotTypes dataTable (conName con) tt | n <- tmpNames Val (tvrIdent t) | demand <- fsubs subs]