[some clean ups
John Meacham <john@repetae.net>**20090828074237
 Ignore-this: 4c7fb282cc9cf43977d212a4ec872c6e
] hunk ./src/Grin/Show.hs 160
-        hPutStrLn handle . render $ func (fromAtom n) <+> operator "::" <+> hsep (map (tshow . getType) l)  <+> operator "->" <+> tshow (getType e)
+        hPutStrLn handle . render $ func (fromAtom n) <+> operator "::" <+> tupled (map (tshow . getType) l)  <+> operator "->" <+> tupled (map tshow (getType e))
hunk ./src/Main.hs 623
+nodeAnalyzeParms = transformParms {
+    transformDumpProgress = verbose,
+    transformCategory = "NodeAnalyze",
+    transformPass = "Grin",
+    transformOperation = nodealyze
+    }  where
+        nodealyze grin = do
+            stats <- Stats.new
+            g <- deadCode stats (grinEntryPointNames grin) grin
+            g <- nodeAnalyze g
+            return g
+
hunk ./src/Main.hs 689
-    x <- nodeAnalyze x
-    lintCheckGrin x
+    x <- transformGrin nodeAnalyzeParms x
+    x <- transformGrin simplifyParms x
hunk ./src/Main.hs 692
-    lintCheckGrin x
-    x <- Grin.SSimplify.simplify x
+    x <- transformGrin simplifyParms x