summaryrefslogtreecommitdiff
path: root/src/Propellor/Property/OS.hs
diff options
context:
space:
mode:
authorJoey Hess2014-12-05 17:44:09 -0400
committerJoey Hess2014-12-05 17:44:09 -0400
commit5ae6a302df5c7bd71cd5dadb53e5bb5e710762b3 (patch)
tree4bec62d14b6fbc2d022baaa8818d6687eeaeae11 /src/Propellor/Property/OS.hs
parent27b61c323ffc691e978fb4c9a470b2109094387d (diff)
some comments
Diffstat (limited to 'src/Propellor/Property/OS.hs')
-rw-r--r--src/Propellor/Property/OS.hs11
1 files changed, 9 insertions, 2 deletions
diff --git a/src/Propellor/Property/OS.hs b/src/Propellor/Property/OS.hs
index 020d7435..22414bb6 100644
--- a/src/Propellor/Property/OS.hs
+++ b/src/Propellor/Property/OS.hs
@@ -77,12 +77,19 @@ cleanInstallOnce confirmation = check (not <$> doesFileExist flagfile) $
(Just d@(System (Debian _) _)) -> debootstrap d
(Just u@(System (Ubuntu _) _)) -> debootstrap u
_ -> error "os is not declared to be Debian or Ubuntu"
+
debootstrap targetos = ensureProperty $ toProp $
-- Ignore the os setting, and install debootstrap from
-- source, since we don't know what OS we're running in yet.
Debootstrap.built' Debootstrap.sourceInstall
newOSDir targetos Debootstrap.DefaultConfig
-
+ -- debootstrap, I wish it was faster..
+ -- TODO eatmydata to speed it up
+ -- Problem: Installing eatmydata on some random OS like
+ -- Fedora may be difficult. Maybe configure dpkg to not
+ -- sync instead?
+
+ -- This is the fun bit.
flipped = property (newOSDir ++ " moved into place") $ liftIO $ do
-- First, unmount most mount points, lazily, so
-- they don't interfere with moving things around.
@@ -175,7 +182,7 @@ confirmed desc (Confirmed c) = property desc $ do
-- | /etc/network/interfaces is configured to bring up all interfaces that
-- are currently up, using the same IP addresses.
preserveNetworkInterfaces :: Property
-preserveNetworkInterfaces = undefined
+preserveNetworkInterfaces = undefined -- TODO
-- | /etc/resolv.conf is copied the from the old OS
preserveResolvConf :: Property