diff options
author | Joachim Breitner <mail@joachim-breitner.de> | 2015-08-11 13:35:15 +0200 |
---|---|---|
committer | Joachim Breitner <mail@joachim-breitner.de> | 2015-08-11 13:35:15 +0200 |
commit | f8e5aa8b00ff4907e56e41e8b40f4117164f91f6 (patch) | |
tree | 2c4bc38760ab63d8708e11012b4b9e4759e71568 /src | |
parent | 883b120d2873b2c0d542e6d6f85bad307c763ff2 (diff) | |
download | DHG_packages-f8e5aa8b00ff4907e56e41e8b40f4117164f91f6.tar.gz |
make-all: Take Build-Deps-Indep into account
Diffstat (limited to 'src')
-rw-r--r-- | src/make-all.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/make-all.hs b/src/make-all.hs index 21f64003f..976be8baf 100644 --- a/src/make-all.hs +++ b/src/make-all.hs @@ -123,16 +123,19 @@ binaryPackagesOfSource s = do Left e -> fail (show e) Right dc -> return $ map unBinPkgName $ debianBinaryPackageNames dc --- TODO: Include Build-Depends-Indep dependsOfDsc :: FilePath -> IO [String] dependsOfDsc f = do ret <- parseControlFromFile f case ret of Left e -> fail (show e) Right (Control (p:_)) -> do - case fieldValue "Build-Depends" (p:: Paragraph) of + deps <- case fieldValue "Build-Depends" (p:: Paragraph) of Nothing -> fail "no Build-Depends" Just depV -> return $ nub $ parseFlatRel depV + ideps <- case fieldValue "Build-Depends-Indep" (p:: Paragraph) of + Nothing -> return [] + Just depV -> return $ nub $ parseFlatRel depV + return $ deps ++ ideps -- Parsing package relations with flattening |