[clean up library code. check to see if we pulled in any odd modules that wern't expected and warn about them
John Meacham <john@repetae.net>**20061004032642] hunk ./Ho/Library.hs 6
+import Char
hunk ./Ho/Library.hs 10
-import qualified Data.Map as Map
hunk ./Ho/Library.hs 11
-import Char
+import qualified Data.Map as Map
hunk ./Ho/Library.hs 20
-import qualified CharIO
-import qualified FlagDump as FD
hunk ./Ho/Library.hs 21
+import Util.SetLike
hunk ./Ho/Library.hs 23
+import qualified CharIO
+import qualified FlagDump as FD
hunk ./Ho/Library.hs 81
-        hmods = mfield "hidden-modules"
-        emods = mfield "exposed-modules"
+        hmods = snub $ mfield "hidden-modules"
+        emods = snub $ mfield "exposed-modules"
hunk ./Ho/Library.hs 85
+    let unknownMods = [ m | m <- allmods , m `mnotMember` (hoExports ho)]
+    mapM_ ((putStrLn . ("*** Module included in library that is not in export list: " ++)) . show) unknownMods