[make it check for non-unique names at the top level in -flint mode
John Meacham <john@repetae.net>**20060816043753] hunk ./Main.hs 287
+    lintCheckProgram (putErrLn "LintPostProcess") prog
hunk ./Main.hs 302
+    lintCheckProgram (putErrLn "InitialLint") prog
+
hunk ./Main.hs 1008
+onerrNone :: IO ()
hunk ./Main.hs 1010
+
hunk ./Main.hs 1026
-    let f (tvr,e) = lintCheckE onerr (progDataTable prog) tvr e
+    let f (tvr@TVr { tvrIdent = n },e) | even n = do
+            onerr
+            putErrLn $ ">>> non-unique name at top level: " ++ pprint tvr
+            printProgram prog
+            putErrLn $ ">>> non-unique name at top level: " ++ pprint tvr
+            maybeDie
+        f (tvr,e) = lintCheckE onerr (progDataTable prog) tvr e
hunk ./Main.hs 1096
+