cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

propellor spin

This commit is contained in:
Joey Hess 2014-04-02 20:44:11 -04:00
parent 022e70d822
commit 595794a250
Failed to extract signature
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Propellor/Property/Apt.hs
View File

@ -79,14 +79,17 @@ upgrade = runApt ["-y", "dist-upgrade"]
type Package = String type Package = String
installed :: [Package] -> Property installed :: [Package] -> Property
installed ps = robustly $ check (isInstallable ps) go installed = installed' ["-y"]
installed' :: [String] -> [Package] -> Property
installed' params ps = robustly $ check (isInstallable ps) go
`describe` (unwords $ "apt installed":ps) `describe` (unwords $ "apt installed":ps)
where where
go = runApt $ ["-y", "install"] ++ ps go = runApt $ params ++ ["install"] ++ ps
-- | Minimal install of package, without recommends. -- | Minimal install of package, without recommends.
installedMin :: [Package] -> Property installedMin :: [Package] -> Property
installedMin ps = installed ("--no-install-recommends" : ps) installedMin = installed' ["--no-install-recommends"]
removed :: [Package] -> Property removed :: [Package] -> Property
removed ps = check (or <$> isInstalled' ps) go removed ps = check (or <$> isInstalled' ps) go