Fix ifBuildable
authorIan Lynagh <igloo@earth.li>
Wed, 3 Sep 2008 20:41:01 +0000 (20:41 +0000)
committerIan Lynagh <igloo@earth.li>
Wed, 3 Sep 2008 20:41:01 +0000 (20:41 +0000)
Required libraries now have 3 fields in the packages file, not 2

libraries/ifBuildable.hs

index 7364a11..68b6197 100644 (file)
@@ -33,7 +33,7 @@ getMustBeBuildables :: FilePath -> IO [String]
 getMustBeBuildables packagesFile
  = do xs <- readFile packagesFile
       let nonCommentLines = filter (("#" /=) . take 1) $ lines xs
 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
           requiredLibraries = [ x | 'l':'i':'b':'r':'a':'r':'i':'e':'s':'/':x
                                     <- map head requiredLines ]
       return $ filter ("editline" /=) requiredLibraries