From fa772dad6752b77d55a521322aa9228a35b9f977 Mon Sep 17 00:00:00 2001
From: joe <joe@blackbird>
Date: Mon, 25 Apr 2016 22:59:31 -0400
Subject: backport testsuite to base 4.6.0

---
 testkiki/testkiki.hs | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'testkiki')

diff --git a/testkiki/testkiki.hs b/testkiki/testkiki.hs
index 839cebf..32c8284 100644
--- a/testkiki/testkiki.hs
+++ b/testkiki/testkiki.hs
@@ -1,5 +1,9 @@
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE DoAndIfThenElse #-}
+{-# LANGUAGE CPP #-}
+#if !MIN_VERSION_base(4,7,0)
+import qualified System.Posix.Env
+#endif
 import System.Environment
 --import System.Posix.Env.ByteString (getEnv)
 import System.Posix.Files
@@ -15,6 +19,10 @@ import Control.Applicative
 import Control.Monad
 import qualified Data.ByteString.Char8 as B
 
+#if !MIN_VERSION_base(4,7,0)
+setEnv k v = System.Posix.Env.setEnv k v True
+unsetEnv = System.Posix.Env.unsetEnv
+#endif
 
 data TestKikiSettings = TKS
         { gnupghome :: FilePath
@@ -22,7 +30,6 @@ data TestKikiSettings = TKS
         }
     deriving (Show,Eq)
 
-
 main = do
     args <- getArgs
     cwd <- getCurrentDirectory
-- 
cgit v1.2.3