add missing do on windows

This commit is contained in:
Joey Hess 2024-07-29 12:54:52 -04:00
parent b4eb6e3ced
commit f397296739
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -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) =