[Code cleanups
John Meacham <john@repetae.net>**20050502002744] hunk ./FrontEnd/Representation.hs 82
-data Tyvar = Tyvar {-# UNPACK #-} !Atom  !HsName Kind
+data Tyvar = Tyvar { tyvarAtom :: {-# UNPACK #-} !Atom, tyvarName ::  !HsName, tyvarKind :: Kind } 
hunk ./FrontEnd/Representation.hs 86
-tyvar n k = Tyvar (fromString $ fromHsName n) n k
+tyvar n k = Tyvar (fromString $ fromHsName n) n k 
hunk ./FrontEnd/Representation.hs 89
-    Tyvar x _ _ == Tyvar y _ _ = x == y
-    Tyvar x _ _ /= Tyvar y _ _ = x /= y
+    Tyvar { tyvarAtom = x } == Tyvar { tyvarAtom = y } = x == y
+    Tyvar { tyvarAtom = x } /= Tyvar { tyvarAtom = y } = x /= y
hunk ./FrontEnd/Representation.hs 93
-    compare (Tyvar x _ _) (Tyvar y _ _) = compare x y
-    (Tyvar x _ _) <= (Tyvar y _ _) = x <= y
-    (Tyvar x _ _) >= (Tyvar y _ _) = x >= y
-    (Tyvar x _ _) < (Tyvar y _ _)  = x < y
-    (Tyvar x _ _) > (Tyvar y _ _)  = x > y
+    compare (Tyvar { tyvarAtom = x }) (Tyvar { tyvarAtom = y }) = compare x y
+    (Tyvar { tyvarAtom = x }) <= (Tyvar { tyvarAtom = y }) = x <= y
+    (Tyvar { tyvarAtom = x }) >= (Tyvar { tyvarAtom = y }) = x >= y
+    (Tyvar { tyvarAtom = x }) <  (Tyvar { tyvarAtom = y })  = x < y
+    (Tyvar { tyvarAtom = x }) >  (Tyvar { tyvarAtom = y })  = x > y
hunk ./FrontEnd/Representation.hs 125
-           TVar (Tyvar _ tv _) -> do 
+           TVar (Tyvar { tyvarName = tv }) -> do 
hunk ./FrontEnd/Representation.hs 141
-           TGen _ (Tyvar _ tv _)   -> do 
+           TGen _ (Tyvar { tyvarName = tv })   -> do 
hunk ./Grin/HashConst.hs 45
+    f _ = error "HashConst.newConst'"