main :: IO ()
main = do args <- getArgs
case args of
- [bootPackagesFile, package] ->
- doit bootPackagesFile package
+ [packagesFile, package] ->
+ doit packagesFile package
_ ->
- error "Syntax: ifBuildable <boot-packages-file> <package>"
+ error "Syntax: ifBuildable <packages-file> <package>"
doit :: FilePath -> String -> IO ()
-doit bootPackagesFile package
+doit packagesFile package
= do setCurrentDirectory package
unbuildable <- doesFileExist "unbuildable"
if not unbuildable
then exitWith ExitSuccess
- else do mustBeBuildables <- getMustBeBuildables bootPackagesFile
+ else do mustBeBuildables <- getMustBeBuildables packagesFile
if package `elem` mustBeBuildables
then exitWith ExitSuccess
else do hPutStrLn stderr "Warning: Package is unbuildable"
exitWith (ExitFailure 1)
getMustBeBuildables :: FilePath -> IO [String]
-getMustBeBuildables bootPackagesFile
- = do xs <- readFile bootPackagesFile
- return $ filter ("editline" /=) $ lines xs
+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