fix compile warning

This commit is contained in:
Joey Hess 2015-02-12 16:03:59 -04:00
parent 5be7ba7ee5
commit 3f5c9ddc05

View file

@ -143,7 +143,7 @@ performRemote key file backend numcopies remote =
( go True (Just tmpfile) ( go True (Just tmpfile)
, do , do
warning "failed to download file from remote" warning "failed to download file from remote"
go True Nothing void $ go True Nothing
return False return False
) )
dispatch (Right False) = go False Nothing dispatch (Right False) = go False Nothing