adding Env.hs (ooops.)

kowey · Apr 8, 2011 · b25be31 · b25be31
1 parent c4895c6
commit b25be31
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/Env.hs b/Env.hs
@@ -0,0 +1,10 @@
+{-# LANGUAGE CPP #-}
+
+module Env (unsetEnv) where
+
+#if defined(mingw32_HOST_OS) || defined(__MINGW32__)
+unsetEnv :: String -> IO ()
+unsetEnv _ = return ()
+#else
+import System.Posix.Env (unsetEnv)
+#endif