[don't generate methods for unused functions
John Meacham <john@repetae.net>**20060224092354] hunk ./E/FromHs.hs 223
-    cClass classRecord =  [ method classRecord n | n :>: _ <- classAssumps classRecord ]
-    method classRecord methodName = (methodName ,setProperty prop_METHOD (tVr ( nameToInt methodName) ty),v) where
+    cClass classRecord =  concat [ method classRecord n | n :>: _ <- classAssumps classRecord ]
+    method classRecord methodName | isJust _methodTVr = [(methodName ,setProperty prop_METHOD (tVr ( nameToInt methodName) ty),v)] where
hunk ./E/FromHs.hs 226
-        Identity (TVr {tvrType = ty},_) = findName methodName
+        _methodTVr@(~(Just (TVr {tvrType = ty},_))) = findName methodName
hunk ./E/FromHs.hs 243
+    method _ _ = []