[add some meta-info when writing libraries containing useful info, clean up output of --show-ho some
John Meacham <john@repetae.net>**20060307043405] hunk ./Ho/Build.hs 9
-    checkForHoModule,
-    showHoCounts
+    checkForHoModule
hunk ./Ho/Build.hs 189
-    putStrLn $ "Generation:" <+> tshow (hohGeneration hoh)
-    putStrLn $ "Dependencies:" <+>  pprint (sortUnder (show . fileName) $ hohDepends hoh)
-    putStrLn $ "ModDependencies:" <+>  pprint (sortUnder fst $ hohModDepends hoh)
-    putStrLn $ "MetaInfo:" <+> vcat [show k <+> show v | (k,v) <- hohMetaInfo hoh]
-    putStrLn $ "Libraries:" <+> pprint (sort $ Map.keys $ hoLibraries ho)
-    putStrLn $ "hoMods:" <+> tshow (map fromModule $ Map.keys $  hoExports ho)
-    putStrLn $ "hoExports:" <+> tshow (size $ hoExports ho)
-    putStrLn $ "hoDefs:" <+> tshow (size $ hoDefs ho)
+    --putStrLn $ "Generation:" <+> tshow (hohGeneration hoh)
+    when (not $ null (hohDepends hoh)) $ putStrLn $ "Dependencies:" <+>  pprint (sortUnder (show . fileName) $ hohDepends hoh)
+    when (not $ null (hohDepends hoh)) $ putStrLn $ "ModDependencies:" <+>  pprint (sortUnder fst $ hohModDepends hoh)
+    putStrLn $ "MetaInfo:\n" <> vcat (sort [text (' ':' ':unpackPS k) <> char ':' <+> show v | (k,v) <- hohMetaInfo hoh])
+    putStrLn $ "Libraries depended on:" <+> pprint (sort $ Map.keys $ hoLibraries ho)
+    putStrLn $ "Modules contained:" <+> tshow (Map.keys $ hoExports ho)
+    putStrLn $ "number of definitions:" <+> tshow (size $ hoDefs ho)
hunk ./Ho/Build.hs 197
-    --putErrLn $ "hoAssumps:" <+> vcat (map show $ Map.keys $ hoAssumps ho)
hunk ./Ho/Build.hs 296
-    putVerboseLn $ "getModule: " ++ show name ++ show files
hunk ./Ho/Build.hs 420
-showHoCounts ho = do
-    putErrLn $ "hoMods:" <+> tshow (map fromModule $ Map.keys $  hoExports ho)
-    putErrLn $ "hoExports:" <+> tshow (size $ hoExports ho)
-    putErrLn $ "hoDefs:" <+> tshow (size $ hoDefs ho)
-    putErrLn $ "hoAssumps:" <+> vcat (map show $ Map.keys $ hoAssumps ho)
-    putErrLn $ "hoFixities:" <+> tshow (size $  hoFixities ho)
-    putErrLn $ "hoKinds:" <+> tshow (size $  hoKinds ho)
-    putErrLn $ "hoClassHierarchy:" <+> tshow (size $  hoClassHierarchy ho)
-    putErrLn $ "hoTypeSynonyms:" <+> tshow (size $  hoTypeSynonyms ho)
-    putErrLn $ "hoDataTable:" <+> tshow (size $  hoDataTable ho)
-    putErrLn $ "hoEs:" <+> tshow (size $  hoEs ho)
-    putErrLn $ "hoProps:" <+> tshow (size $  hoProps ho)
-    putErrLn $ "hoRules:" <+> tshow (size $  hoRules ho)
hunk ./Ho/Library.hs 24
+import Version(versionString)
hunk ./Ho/Library.hs 83
-    let pdesc = [(packString n, packString v) | (n,v) <- desc ]
hunk ./Ho/Library.hs 86
+    let pdesc = [(packString n, packString v) | (n,v) <- ("jhc-hl-filename",outName):("jhc-description-file",fp):("jhc-compiled-by",versionString):desc, n /= "exposed-modules" ]