[take advantage of absent values in worker-wrapper
John Meacham <john@repetae.net>**20060719010418] hunk ./E/WorkerWrapper.hs 18
-import qualified E.Demand as Demand
hunk ./E/WorkerWrapper.hs 20
+import qualified E.Demand as Demand
hunk ./E/WorkerWrapper.hs 50
+    f (ELam t e) (Demand.Absent:ss) (Fun x) ts | isLifted (EVar t) = f e ss x ((Absent,t):ts)
hunk ./E/WorkerWrapper.hs 76
+        f (Absent,_) = []
hunk ./E/WorkerWrapper.hs 80
+        f (Absent,t) = [(t,EError "WorkWrap.Absent" (getType t))]
hunk ./E/WorkerWrapper.hs 85
+        f ((Absent,_):rs) = f rs