From 61766ff027ffaad3e816c7cda20284f87e16478b Mon Sep 17 00:00:00 2001
From: Joey Hess <id@joeyh.name>
Date: Thu, 4 Dec 2014 16:55:33 -0400
Subject: [PATCH] propellor spin

---
 src/Propellor/Property/OS.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Propellor/Property/OS.hs b/src/Propellor/Property/OS.hs
index 2888800..8b221b9 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