[improve Grin Linting a little
John Meacham <john@repetae.net>**20100812054446
 Ignore-this: c7613a94c296e089a985904aa049d002
] hunk ./src/Grin/Lint.hs 290
+        NodeC {} <- return v
+        tcVal w
+        tcVal v
hunk ./src/Grin/Lint.hs 295
+        TyPtr t <- tcVal w
+        tv <- tcVal v
+        when (t /= tv) $
+            fail "PokeVal: types don't match"