From: Joey Hess <joeyh@joeyh.name>
Date: Mon, 26 Sep 2022 17:10:25 +0000 (-0400)
Subject: remove unncessary do block
X-Git-Tag: archive/raspbian/10.20250416-2+rpi1~2^2^2~47^2~45
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=b411a1ce7495f23ae7956b553ff0cda14be109e8;p=git-annex.git

remove unncessary do block

Left by Reiko's patch
---

diff --git a/Annex/Perms.hs b/Annex/Perms.hs
index 69e344452a..e6ed48a4d0 100644
--- a/Annex/Perms.hs
+++ b/Annex/Perms.hs
@@ -287,9 +287,8 @@ createContentDir dest = do
 	unlessM (liftIO $ R.doesPathExist dir) $
 		createAnnexDirectory dir 
 	-- might have already existed with restricted perms
-	do
-		thawHook dir
-		unlessM crippledFileSystem $ liftIO $ allowWrite dir
+	thawHook dir
+	unlessM crippledFileSystem $ liftIO $ allowWrite dir
   where
 	dir = parentDir dest