blob: 849af5764e12635efe9b2c0b72641986c02d351b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
[[!comment format=mdwn
username="mithrandi@311efa1b2b5c4999c2edae7da06fb825899e8a82"
nickname="mithrandi"
subject="comment 2"
date="2016-10-03T21:50:04Z"
content="""
Indeed, your guess was correct: `Debootstrap.installed` prints `debootstrap installed ... ok` even on the first run, but in fact it is not installed. I believe this patch fixes the problem:
```
diff --git a/src/Propellor/Property/Debootstrap.hs b/src/Propellor/Property/Debootstrap.hs
index 59850c4..f9737ca 100644
--- a/src/Propellor/Property/Debootstrap.hs
+++ b/src/Propellor/Property/Debootstrap.hs
@@ -100,7 +100,7 @@ extractSuite (System (FreeBSD _) _) = Nothing
installed :: RevertableProperty Linux Linux
installed = install <!> remove
where
- install = check (isJust <$> programPath) $
+ install = check (isNothing <$> programPath) $
(aptinstall `pickOS` sourceInstall)
`describe` \"debootstrap installed\"
```
"""]]
|
