[Add a missing tellTags call to one of the two-case branches of C.FromGrin2.convertBody
Samuel Bronson <naesten@gmail.com>**20090120192856] hunk ./C/FromGrin2.hs 319
-        am Var {} e = e
-        am ~(NodeC t2 _) e = annotate (show p2) (f_assert ((constant $ enum (nodeTagName t2)) `eq` tag) & e)
+        am Var {} e = return e
+        am ~(NodeC t2 _) e = do 
+            tellTags t2
+            return $ annotate (show p2) (f_assert ((constant $ enum (nodeTagName t2)) `eq` tag) & e)
hunk ./C/FromGrin2.hs 327
-    p2' <- liftM (am p2) $ da p2 e2
+    p2' <- am p2 =<< da p2 e2