diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Propellor/Property/OS.hs | 3 |
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 |