[remove old tag extraction optimization droppings
John Meacham <john@repetae.net>**20070517050201] hunk ./Grin/Simplify.hs 121
-    gv (NodeV v [],Return (NodeC t' [])) = do
-            lift $ tick stats at_OptSimplifyEnumAssignment
-            gv (Var v TyTag, Return (Tag t'))
-    gv (NodeV v [],Return (NodeV v' [])) = do
-            lift $ tick stats at_OptSimplifyEnumAssignment
-            gv (Var v TyTag, Return (Var v' TyTag))
+--    gv (NodeV v [],Return (NodeC t' [])) = do
+--            lift $ tick stats at_OptSimplifyEnumAssignment
+--            gv (Var v TyTag, Return (Tag t'))
+--    gv (NodeV v [],Return (NodeV v' [])) = do
+--            lift $ tick stats at_OptSimplifyEnumAssignment
+--            gv (Var v TyTag, Return (Var v' TyTag))
hunk ./Grin/Simplify.hs 268
-    f (Return (NodeV t [])) = Return (Var t TyTag)
-    f (Return (NodeC t [])) | postEval  = Return (Tag t)
+--    f (Return (NodeV t [])) = Return (Var t TyTag)
+--    f (Return (NodeC t [])) | postEval  = Return (Tag t)