summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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