From 291ad8f6b24e97a8a7fafb2148d78e5273bdd8e2 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 27 Mar 2023 12:19:26 -0400 Subject: [PATCH] avoid build warning on windows --- Annex/TransferrerPool.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Annex/TransferrerPool.hs b/Annex/TransferrerPool.hs index a46617b3cb..481e08e9f7 100644 --- a/Annex/TransferrerPool.hs +++ b/Annex/TransferrerPool.hs @@ -175,7 +175,11 @@ performTransfer stalldetection level runannex r t info transferrer = do {- Starts a new git-annex transfer process, setting up handles - that will be used to communicate with it. -} mkTransferrer :: SignalActionsVar -> RunTransferrer -> IO Transferrer +#ifndef mingw32_HOST_OS mkTransferrer signalactonsvar (RunTransferrer program params batchmaker) = do +#else +mkTransferrer _ (RunTransferrer program params batchmaker) = do +#endif {- It runs as a batch job. -} let (program', params') = batchmaker (program, params) {- It's put into its own group so that the whole group can be