more win warning squashing

This commit is contained in:
Joey Hess 2013-09-06 18:54:24 -04:00
parent 1fc5586b4e
commit 7ad39245e6

View file

@ -56,13 +56,13 @@ import qualified Utility.Process
import qualified Utility.Misc
import qualified Utility.InodeCache
import qualified Utility.Env
import qualified Utility.Gpg
import qualified Utility.Matcher
import qualified Utility.Exception
#ifndef mingw32_HOST_OS
import qualified GitAnnex
import qualified Remote.Helper.Encryptable
import qualified Types.Crypto
import qualified Utility.Gpg
#endif
type TestEnv = M.Map String String
@ -943,7 +943,7 @@ test_crypto env = "git-annex crypto" ~: TestList $ flip map ["shared","hybrid","
key2files cipher = Locations.keyPaths .
Crypto.encryptKey Types.Crypto.HmacSha1 cipher
#else
test_crypto env = "git-annex crypto" ~: putStrLn "gpg testing not implemented on Windows"
test_crypto _env = "git-annex crypto" ~: putStrLn "gpg testing not implemented on Windows"
#endif
-- This is equivilant to running git-annex, but it's all run in-process