avoid build warning on windows
This commit is contained in:
parent
79d00a3b9f
commit
291ad8f6b2
1 changed files with 4 additions and 0 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue