summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2014-12-04 16:55:33 -0400
committerJoey Hess2014-12-04 16:55:33 -0400
commit61766ff027ffaad3e816c7cda20284f87e16478b (patch)
tree0e8a0f7445deaa2b7aa975eb1e6fa46d78d26c12
parent31cf8e0c24ff25a14ce750bbb1491436c55f07e0 (diff)
propellor spin
-rw-r--r--src/Propellor/Property/OS.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Propellor/Property/OS.hs b/src/Propellor/Property/OS.hs
index 2888800e..8b221b95 100644
--- a/src/Propellor/Property/OS.hs
+++ b/src/Propellor/Property/OS.hs
@@ -77,7 +77,8 @@ cleanInstallOnce confirmation = check (not <$> doesFileExist flagfile) $
umountall = property "mount points unmounted" $ liftIO $ do
mnts <- filter (`notElem` ["/", "/proc"]) <$> mountPoints
- forM_ mnts umountLazy
+ -- reverse so that deeper mount points come first
+ forM_ (reverse mnts) umountLazy
return $ if null mnts then NoChange else MadeChange
flipped = property (newOSDir ++ " moved into place") $ liftIO $ do