summaryrefslogtreecommitdiff
path: root/Propellor/Property
diff options
context:
space:
mode:
authorJoey Hess2014-04-02 20:40:38 -0400
committerJoey Hess2014-04-02 20:40:38 -0400
commit6bde26780f2e29ee9c1503b68b12854114474898 (patch)
tree241d8eaa497ecbca34d719ebcd3b31f6dca2499a /Propellor/Property
parent73fcd794e4258342740646ad0016a731f26e6951 (diff)
updates
Diffstat (limited to 'Propellor/Property')
-rw-r--r--Propellor/Property/Apt.hs6
1 files changed, 5 insertions, 1 deletions
diff --git a/Propellor/Property/Apt.hs b/Propellor/Property/Apt.hs
index 867e6bb7..2d7c927c 100644
--- a/Propellor/Property/Apt.hs
+++ b/Propellor/Property/Apt.hs
@@ -84,6 +84,10 @@ installed ps = robustly $ check (isInstallable ps) go
where
go = runApt $ ["-y", "install"] ++ ps
+-- | Minimal install of package, without recommends.
+installedMin :: [Package] -> Property
+installedMin ps = installed ("--no-install-recommends" : ps)
+
removed :: [Package] -> Property
removed ps = check (or <$> isInstalled' ps) go
`describe` (unwords $ "apt removed":ps)
@@ -100,7 +104,7 @@ buildDep ps = robustly go
-- in the specifed directory, with a dummy package also
-- installed so that autoRemove won't remove them.
buildDepIn :: FilePath -> Property
-buildDepIn dir = go `requires` installed ["devscripts"]
+buildDepIn dir = go `requires` installedMin ["devscripts"]
where
go = cmdProperty' "sh" ["-c", "cd '" ++ dir ++ "' && mk-build-deps debian/control --install --remove"]
noninteractiveEnv