From: Ian Lynagh <igloo@earth.li>
Date: Wed, 3 Sep 2008 20:41:01 +0000 (+0000)
Subject: Fix ifBuildable
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=3a006cb547b5e0fafe2add853209519e6d4a1ccc

Fix ifBuildable
Required libraries now have 3 fields in the packages file, not 2
---

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