diff options
Diffstat (limited to 'Utility/UserInfo.hs')
| -rw-r--r-- | Utility/UserInfo.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Utility/UserInfo.hs b/Utility/UserInfo.hs index 3a71c6baf..9c3bfd42f 100644 --- a/Utility/UserInfo.hs +++ b/Utility/UserInfo.hs @@ -24,7 +24,7 @@ import Utility.Env myHomeDir :: IO FilePath myHomeDir = myVal env homeDirectory where -#ifndef __WINDOWS__ +#ifndef mingw32_HOST_OS env = ["HOME"] #else env = ["USERPROFILE", "HOME"] -- HOME is used in Cygwin @@ -34,7 +34,7 @@ myHomeDir = myVal env homeDirectory myUserName :: IO String myUserName = myVal env userName where -#ifndef __WINDOWS__ +#ifndef mingw32_HOST_OS env = ["USER", "LOGNAME"] #else env = ["USERNAME", "USER", "LOGNAME"] |