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

propellor spin

This commit is contained in:
Joey Hess 2014-12-04 16:29:33 -04:00
parent c00219f593
commit e47fbd9b39
Failed to extract signature
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/Propellor/Property/OS.hs
View File

@ -55,15 +55,15 @@ cleanInstallOnce confirmation = check (not <$> doesFileExist flagfile) $
go `requires` confirmed "clean install confirmed" confirmation
where
go =
osbootstrapped
`before`
transitioned
`before`
User.shadowConfig True
`before`
propellorbootstrapped
`before`
finalized
`requires`
propellorbootstrapped
`requires`
User.shadowConfig True
`requires`
flipped
`requires`
osbootstrapped
osbootstrapped = withOS "/new-os bootstrapped" $ \o -> case o of
(Just d@(System (Debian _) _)) -> debootstrap d
@ -72,7 +72,7 @@ cleanInstallOnce confirmation = check (not <$> doesFileExist flagfile) $
debootstrap targetos = ensureProperty $ toProp $
Debootstrap.built "/new-os" targetos Debootstrap.DefaultConfig
transitioned = property "/new-os moved into place" $
flipped = property "/new-os moved into place" $
return FailedChange
-- unmount all mounts
-- move all directories to /old-os,