From 56749d75a54a7791f39450dd383bbfc6d1fe0c5b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 16 Nov 2017 12:54:42 -0400 Subject: typo --- Annex/Perms.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Annex') diff --git a/Annex/Perms.hs b/Annex/Perms.hs index cfd25a5ee..1ce342911 100644 --- a/Annex/Perms.hs +++ b/Annex/Perms.hs @@ -112,7 +112,7 @@ isContentWritePermOk file = ifM crippledFileSystem go AllShared = want writeModes go _ = return True want wantmode = do - liftIO $ catchMaybeIO $ fileMode <$> getFileStatus file + mmode <- liftIO $ catchMaybeIO $ fileMode <$> getFileStatus file return $ case mmode of Nothing -> True Just havemode -> havemode == combineModes (havemode:wantmode) -- cgit v1.2.3