diff options
Diffstat (limited to 'Utility/Gpg.hs')
-rwxr-xr-x | Utility/Gpg.hs | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/Utility/Gpg.hs b/Utility/Gpg.hs index 0ed4b85da..d3460bdf7 100755 --- a/Utility/Gpg.hs +++ b/Utility/Gpg.hs @@ -13,11 +13,9 @@ import System.Posix.Types import Control.Applicative import Control.Concurrent import Control.Exception (bracket) -#ifndef mingw32_HOST_OS -import System.Posix.Env (setEnv, unsetEnv, getEnv) -#endif import Common +import Utility.Env newtype KeyIds = KeyIds [String] deriving (Ord, Eq) @@ -229,7 +227,7 @@ testHarness a = do setup = do base <- getTemporaryDirectory dir <- mktmpdir $ base </> "gpgtmpXXXXXX" - setEnv var dir True + void $ setEnv var dir True _ <- pipeStrict [Params "--import -q"] $ unlines [testSecretKey, testKey] return dir |