Commit 3a006cb5 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Fix ifBuildable

Required libraries now have 3 fields in the packages file, not 2
parent f16dbbbe
...@@ -33,7 +33,7 @@ getMustBeBuildables :: FilePath -> IO [String] ...@@ -33,7 +33,7 @@ getMustBeBuildables :: FilePath -> IO [String]
getMustBeBuildables packagesFile getMustBeBuildables packagesFile
= do xs <- readFile packagesFile = do xs <- readFile packagesFile
let nonCommentLines = filter (("#" /=) . take 1) $ lines xs let nonCommentLines = filter (("#" /=) . take 1) $ lines xs
requiredLines = filter ((2 == ) . length) $ map words nonCommentLines requiredLines = filter ((3 == ) . length) $ map words nonCommentLines
requiredLibraries = [ x | 'l':'i':'b':'r':'a':'r':'i':'e':'s':'/':x requiredLibraries = [ x | 'l':'i':'b':'r':'a':'r':'i':'e':'s':'/':x
<- map head requiredLines ] <- map head requiredLines ]
return $ filter ("editline" /=) requiredLibraries return $ filter ("editline" /=) requiredLibraries
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment