From f397296739bac5cbe420310eb5e687d5fe5a33ca Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 29 Jul 2024 12:54:52 -0400 Subject: [PATCH] add missing do on windows --- Annex/Content.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Annex/Content.hs b/Annex/Content.hs index 784fbbf1da..19acb53aa7 100644 --- a/Annex/Content.hs +++ b/Annex/Content.hs @@ -178,7 +178,7 @@ lockContentShared key mduration a = do ) lockdropretention Nothing = noop - lockdropretention retention@(Just _) = + lockdropretention retention@(Just _) = do -- In order to dropretention, have to -- take an exclusive lock. let (exlocker, expostunlock) =