diff options
Diffstat (limited to 'Annex/Perms.hs')
| -rw-r--r-- | Annex/Perms.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Annex/Perms.hs b/Annex/Perms.hs index 1ce342911..93919af86 100644 --- a/Annex/Perms.hs +++ b/Annex/Perms.hs @@ -111,9 +111,8 @@ isContentWritePermOk file = ifM crippledFileSystem go GroupShared = want [ownerWriteMode, groupWriteMode] go AllShared = want writeModes go _ = return True - want wantmode = do - mmode <- liftIO $ catchMaybeIO $ fileMode <$> getFileStatus file - return $ case mmode of + want wantmode = + liftIO (catchMaybeIO $ fileMode <$> getFileStatus file) >>= return . \case Nothing -> True Just havemode -> havemode == combineModes (havemode:wantmode) |