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:27:54 -04:00
parent 05ad6ad130
commit 228154cf1f
Failed to extract signature
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -73,21 +73,21 @@ cleanInstallOnce confirmation = check (not <$> doesFileExist flagfile) $
Debootstrap.built "/new-os" targetos Debootstrap.DefaultConfig Debootstrap.built "/new-os" targetos Debootstrap.DefaultConfig
transitioned = property "/new-os moved into place" $ transitioned = property "/new-os moved into place" $
return NoChange return FailedChange
-- unmount all mounts -- unmount all mounts
-- move all directories to /old-os, -- move all directories to /old-os,
-- move /new-os to / -- move /new-os to /
-- touch flagfile -- touch flagfile
propellorbootstrapped = property "propellor re-debootstrapped in new os" $ propellorbootstrapped = property "propellor re-debootstrapped in new os" $
return NoChange return FailedChange
-- re-bootstrap propellor in /usr/local/propellor, -- re-bootstrap propellor in /usr/local/propellor,
-- (using git repo bundle, privdata file, and possibly -- (using git repo bundle, privdata file, and possibly
-- git repo url, which all need to be arranged to -- git repo url, which all need to be arranged to
-- be present in /old-os's /usr/local/propellor) -- be present in /old-os's /usr/local/propellor)
finalized = property "clean install finalized" $ do finalized = property "clean install finalized" $ do
--liftIO $ writeFile flagfile "" liftIO $ writeFile flagfile ""
return MadeChange return MadeChange
flagfile = "/etc/propellor-cleaninstall" flagfile = "/etc/propellor-cleaninstall"