mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

avoid build warning on windows

Browse source
This commit is contained in:
Joey Hess 2023-03-27 12:19:26 -04:00
parent 79d00a3b9f
commit 291ad8f6b2
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Annex/TransferrerPool.hs
View file

@ -175,7 +175,11 @@ performTransfer stalldetection level runannex r t info transferrer = do
{- Starts a new git-annex transfer process, setting up handles {- Starts a new git-annex transfer process, setting up handles
- that will be used to communicate with it. -} - that will be used to communicate with it. -}
mkTransferrer :: SignalActionsVar -> RunTransferrer -> IO Transferrer mkTransferrer :: SignalActionsVar -> RunTransferrer -> IO Transferrer
#ifndef mingw32_HOST_OS
mkTransferrer signalactonsvar (RunTransferrer program params batchmaker) = do mkTransferrer signalactonsvar (RunTransferrer program params batchmaker) = do
#else
mkTransferrer _ (RunTransferrer program params batchmaker) = do
#endif
{- It runs as a batch job. -} {- It runs as a batch job. -}
let (program', params') = batchmaker (program, params) let (program', params') = batchmaker (program, params)
{- It's put into its own group so that the whole group can be {- It's put into its own group so that the whole group can be