X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=libraries%2FifBuildable.hs;h=68b619751b63f6b659cda495e19bb26916f22a53;hb=66579ff945831c5fc9a17c58c722ff01f2268d76;hp=7364a1135afc54053efd8cc97e0a800bcbc64afe;hpb=8a7dbb3c7dca35a840ed11d85f7c2ea459cf3699;p=ghc-hetmet.git diff --git a/libraries/ifBuildable.hs b/libraries/ifBuildable.hs index 7364a11..68b6197 100644 --- a/libraries/ifBuildable.hs +++ b/libraries/ifBuildable.hs @@ -33,7 +33,7 @@ getMustBeBuildables :: FilePath -> IO [String] getMustBeBuildables packagesFile = do xs <- readFile packagesFile 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 <- map head requiredLines ] return $ filter ("editline" /=) requiredLibraries