diff options
| author | Joey Hess <joeyh@joeyh.name> | 2016-12-24 14:53:58 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2016-12-24 14:53:58 -0400 |
| commit | 122b09e2f24cff55c65b84cbccd78ed640a234be (patch) | |
| tree | 5f9f1929b2fccb9d9a783a0a53f56ba13aae7897 /Utility/UserInfo.hs | |
| parent | 1b18f539f2bace903c853ce828902a8061007da5 (diff) | |
| download | git-repair-122b09e2f24cff55c65b84cbccd78ed640a234be.tar.gz | |
Merge from git-annex.
Diffstat (limited to 'Utility/UserInfo.hs')
| -rw-r--r-- | Utility/UserInfo.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Utility/UserInfo.hs b/Utility/UserInfo.hs index ec0b0d0..dd66c33 100644 --- a/Utility/UserInfo.hs +++ b/Utility/UserInfo.hs @@ -16,6 +16,7 @@ module Utility.UserInfo ( import Utility.Env import Utility.Data +import Utility.Exception import System.PosixCompat import Control.Applicative @@ -25,7 +26,7 @@ import Prelude - - getpwent will fail on LDAP or NIS, so use HOME if set. -} myHomeDir :: IO FilePath -myHomeDir = either error return =<< myVal env homeDirectory +myHomeDir = either giveup return =<< myVal env homeDirectory where #ifndef mingw32_HOST_OS env = ["HOME"] |