X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=libraries%2FifBuildable.hs;h=7364a1135afc54053efd8cc97e0a800bcbc64afe;hb=d92b83b91324d24a8caf243a1eedd070cc455b6d;hp=f163ca22df27eab40813c7aabd4ce35d3edec57d;hpb=e05f9de137269701df667b69d741dfae616694f7;p=ghc-hetmet.git

diff --git a/libraries/ifBuildable.hs b/libraries/ifBuildable.hs
index f163ca2..7364a11 100644
--- a/libraries/ifBuildable.hs
+++ b/libraries/ifBuildable.hs
@@ -12,24 +12,29 @@ import System.IO
 main :: IO ()
 main = do args <- getArgs
           case args of
-              [package] ->
-                  doit package
+              [packagesFile, package] ->
+                  doit packagesFile package
               _ ->
-                  error "Syntax: ifBuildable <package>"
+                  error "Syntax: ifBuildable <packages-file> <package>"
 
-doit :: String -> IO ()
-doit package
+doit :: FilePath -> String -> IO ()
+doit packagesFile package
  = do setCurrentDirectory package
       unbuildable <- doesFileExist "unbuildable"
       if not unbuildable
          then exitWith ExitSuccess
-         else do mustBeBuildables <- getMustBeBuildablePackages
+         else do mustBeBuildables <- getMustBeBuildables packagesFile
                  if package `elem` mustBeBuildables
                      then exitWith ExitSuccess
                      else do hPutStrLn stderr "Warning: Package is unbuildable"
                              exitWith (ExitFailure 1)
 
-getMustBeBuildablePackages :: IO [String]
-getMustBeBuildablePackages
- = do xs <- readFile "../boot-packages"
-      return $ filter ("readline" /=) $ lines xs
+getMustBeBuildables :: FilePath -> IO [String]
+getMustBeBuildables packagesFile
+ = do xs <- readFile packagesFile
+      let nonCommentLines = filter (("#" /=) . take 1) $ lines xs
+          requiredLines = filter ((2 == ) . length) $ map words nonCommentLines
+          requiredLibraries = [ x | 'l':'i':'b':'r':'a':'r':'i':'e':'s':'/':x
+                                    <- map head requiredLines ]
+      return $ filter ("editline" /=) requiredLibraries
+