diff options
| author | Joey Hess <id@joeyh.name> | 2014-12-04 16:55:33 -0400 |
|---|---|---|
| committer | Joey Hess <id@joeyh.name> | 2014-12-04 16:55:33 -0400 |
| commit | 61766ff027ffaad3e816c7cda20284f87e16478b (patch) | |
| tree | 0e8a0f7445deaa2b7aa975eb1e6fa46d78d26c12 /src | |
| parent | 31cf8e0c24ff25a14ce750bbb1491436c55f07e0 (diff) | |
propellor spin
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 |