squash build warnings on windows

This commit is contained in:
Joey Hess 2020-11-23 14:00:17 -04:00
parent 06a80dc790
commit 804808d569
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
9 changed files with 10 additions and 10 deletions

View file

@ -332,6 +332,7 @@ genRandom cmd highQuality size = checksize <$> readStrict cmd params
testKeyId :: String
testKeyId = "129D6E0AC537B9C7"
#ifndef mingw32_HOST_OS
testKey :: String
testKey = keyBlock True
[ "mI0ETvFAZgEEAKnqwWgZqznMhi1RQExem2H8t3OyKDxaNN3rBN8T6LWGGqAYV4wT"
@ -400,7 +401,6 @@ keyBlock public ls = unlines
| public = "PUBLIC"
| otherwise = "PRIVATE"
#ifndef mingw32_HOST_OS
{- Runs an action using gpg in a test harness, in which gpg does
- not use ~/.gpg/, but sets up the test key in a subdirectory of
- the passed directory and uses it.