[clean up code some, get rid of warnings.
John Meacham <john@repetae.net>**20070827114834] hunk ./FrontEnd/FrontEnd.hs 8
-import Data.Monoid
hunk ./FrontEnd/FrontEnd.hs 23
-makeLibrary processInitialHo processDecls hl = createLibrary hl buildLibrary where
-    buildLibrary [] = do putErrLn "WARNING: building empty library" >> return mempty
-    buildLibrary mods = do
-        putVerboseLn $ "Building library containing: " ++ show mods
-        -- TODO - remove hidden exports
-        parseFiles (map Left mods) processInitialHo processDecls
+makeLibrary ifunc func hl = do buildLibrary ifunc (doModules func) hl
hunk ./Ho/Binary.hs 1
-module Ho.Binary where
+module Ho.Binary() where
hunk ./Ho/Binary.hs 8
-import HsSyn(Module)
hunk ./Ho/Binary.hs 10
-import PackedString(PackedString)
hunk ./Ho/Binary.hs 12
-data HoHeader = HoHeader {
-    -- * Haskell Source files depended on
-    hohDepends    :: [(Module,SHA1.Hash)],
-    -- * Other objects depended on
-    hohModDepends :: [(Module,SHA1.Hash)],
-    -- * my sha1 id
-    hohHash       :: SHA1.Hash,
-    -- * metainformation, filled for hl-files, empty for normal objects.
-    hohMetaInfo   :: [(PackedString,PackedString)]
-    }
hunk ./Ho/Build.hs 6
-    createLibrary
+    buildLibrary
hunk ./Ho/Build.hs 47
-import Ho.Binary
+import Ho.Binary()
hunk ./Ho/Build.hs 217
+
+
hunk ./Ho/Build.hs 461
+buildLibrary :: (CollectedHo -> Ho -> IO CollectedHo)
+             -> (CollectedHo -> [HsModule] -> IO (CollectedHo,Ho))
+             -> FilePath
+             -> IO ()
+buildLibrary ifunc func fp = createLibrary fp bl where
+    bl ms = findModule (map Left ms) ifunc func
+
hunk ./Ho/Build.hs 492
-    let hoh =  HoHeader [ (m,SHA1.emptyHash) | m <- mkeys (hoExports ho)] [] lhash pdesc
+    let hoh =  HoHeader {
+            hohHash = lhash,
+            hohDepends = [ (m,SHA1.emptyHash) | m <- mkeys (hoExports ho)],
+            hohModDepends = [],
+            hohMetaInfo = pdesc
+            }
hunk ./Ho/Library.hs 19
+type LibraryName = String
hunk ./Ho/Type.hs 22
+import PackedString
hunk ./Ho/Type.hs 26
-
-type CheckSum = SHA1.Hash
-type LibraryName = String
-
hunk ./Ho/Type.hs 50
+data HoHeader = HoHeader {
+    -- * my sha1 id
+    hohHash       :: SHA1.Hash,
+    -- * Haskell Source files depended on
+    hohDepends    :: [(Module,SHA1.Hash)],
+    -- * Other objects depended on
+    hohModDepends :: [(Module,SHA1.Hash)],
+    -- * metainformation, filled for hl-files, empty for normal objects.
+    hohMetaInfo   :: [(PackedString,PackedString)]
+    }
+
hunk ./Interactive.hs 8
-import IO(stdout,ioeGetErrorString)
+import IO(stdout)
hunk ./Interactive.hs 26
-import FrontEnd.SrcLoc
hunk ./Interactive.hs 32
-import FrontEnd.Class
hunk ./Interactive.hs 135
-            f _ _ = undefined