[clean up E.Subst a little
John Meacham <john@repetae.net>**20060323051836] hunk ./E/Subst.hs 1
-module E.Subst(subst,subst',eAp, substMap,doSubst,typeSubst,typeSubst',substMap'',litSMapM ) where
+module E.Subst(
+    doSubst,
+    eAp,
+    litSMapM,
+    subst,
+    subst',
+    substMap,
+    substMap'',
+    typeSubst,
+    typeSubst'
+    ) where
hunk ./E/Subst.hs 63
-allShadow :: E -> E
-allShadow e = doSubst False True (Map.fromList [ (x,Nothing) | x <- freeVars e ]) e
-