summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/Apt.hs
diff options
context:
space:
mode:
authorJoey Hess2015-12-05 18:03:02 -0400
committerJoey Hess2015-12-05 18:51:05 -0400
commit5cfb20668421acb3c0de133afe973fc693b8b320 (patch)
treedb49686bb48d1de1403aee9aa5ea8cb7d03c6a13 /src/Propellor/Property/Apt.hs
parent12548bae3d8feecce6a322162d91b827289ae824 (diff)
remove trivial
Diffstat (limited to 'src/Propellor/Property/Apt.hs')
-rw-r--r--src/Propellor/Property/Apt.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Propellor/Property/Apt.hs b/src/Propellor/Property/Apt.hs
index cf81c9be..26c151d9 100644
--- a/src/Propellor/Property/Apt.hs
+++ b/src/Propellor/Property/Apt.hs
@@ -140,13 +140,13 @@ installed' params ps = robustly $ check (isInstallable ps) go
`assume` MadeChange
installedBackport :: [Package] -> Property NoInfo
-installedBackport ps = trivial $ withOS desc $ \o -> case o of
+installedBackport ps = withOS desc $ \o -> case o of
Nothing -> error "cannot install backports; os not declared"
(Just (System (Debian suite) _)) -> case backportSuite suite of
Nothing -> notsupported o
- Just bs -> ensureProperty $ runApt
- (["install", "-t", bs, "-y"] ++ ps)
- `assume` MadeChange
+ Just bs -> ensureProperty $
+ runApt (["install", "-t", bs, "-y"] ++ ps)
+ `changesFile` dpkgStatus
_ -> notsupported o
where
desc = (unwords $ "apt installed backport":ps)