summaryrefslogtreecommitdiff
path: root/Annex/Environment.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Annex/Environment.hs')
-rwxr-xr-xAnnex/Environment.hs10
1 files changed, 8 insertions, 2 deletions
diff --git a/Annex/Environment.hs b/Annex/Environment.hs
index fef6989ee..fd757ee2c 100755
--- a/Annex/Environment.hs
+++ b/Annex/Environment.hs
@@ -10,10 +10,12 @@
module Annex.Environment where
import Common.Annex
+#ifndef __WINDOWS__
import Utility.UserInfo
+#endif
import qualified Git.Config
-#ifndef mingw32_HOST_OS
+#ifndef __WINDOWS__
import System.Posix.Env
#endif
import Network.BSD
@@ -28,7 +30,10 @@ checkEnvironment = do
liftIO checkEnvironmentIO
checkEnvironmentIO :: IO ()
-checkEnvironmentIO = do
+checkEnvironmentIO =
+#ifdef __WINDOWS__
+ noop
+#else
whenM (null <$> myUserGecos) $ do
username <- myUserName
ensureEnv "GIT_AUTHOR_NAME" username
@@ -42,3 +47,4 @@ checkEnvironmentIO = do
-- in runshell instead.
ensureEnv _ _ = noop
#endif
+#endif