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