[cleanups
John Meacham <john@repetae.net>**20120118014257
 Ignore-this: 4257794cdd215296a9b6a6b87b527ead
] hunk ./src/Grin/NodeAnalyze.hs 25
-import Util.UnionSolve
+import Util.UnionSolve2 as Util.UnionSolve
hunk ./src/Grin/NodeAnalyze.hs 116
-    (rm,res) <- solve (const (return ())) cs
-    --(rm,res) <- solve putStrLn cs
+    --(rm,res) <- solve (const (return ())) cs
+    (rm,res) <- solve putStrLn cs
hunk ./src/Util/UnionFind.hs 31
-new_ :: MonadIO m =>  a -> m (Element () a)
+new_ :: MonadIO m => a -> m (Element () a)
hunk ./src/Util/UnionFind.hs 34
-
hunk ./src/Util/UnionFind.hs 77
-
-
hunk ./src/Util/UnionFind.hs 80
-
hunk ./src/Util/UnionFind.hs 91
-
-
hunk ./src/Util/UnionSolve.hs 18
+
hunk ./src/Util/UnionSolve.hs 23
-
hunk ./src/Util/UnionSolve.hs 44
-
hunk ./src/Util/UnionSolve.hs 104
-
hunk ./src/Util/UnionSolve.hs 114
-
hunk ./src/Util/UnionSolve.hs 287
-
-
-
-
hunk ./src/Util/UnionSolve.hs 298
-
hunk ./src/Util/UnionSolve.hs 320
-
hunk ./src/Util/UnionSolve.hs 359
-
-
-
-
-