mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

avoid trying to use GECOS on Android, which responds with sig11

Browse source
This commit is contained in:
Joey Hess 2013-02-19 18:06:27 -04:00
parent 56e56d98c7
commit e1dba0c3dc
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Utility/UserInfo.hs
View file

@ -5,6 +5,8 @@
- Licensed under the GNU GPL version 3 or higher. - Licensed under the GNU GPL version 3 or higher.
-} -}
{-# LANGUAGE CPP #-}
module Utility.UserInfo ( module Utility.UserInfo (
myHomeDir, myHomeDir,
myUserName, myUserName,
@ -26,7 +28,11 @@ myUserName :: IO String
myUserName = myVal ["USER", "LOGNAME"] userName myUserName = myVal ["USER", "LOGNAME"] userName
myUserGecos :: IO String myUserGecos :: IO String
#ifdef WITH_ANDROID
myUserGecos = return "" -- userGecos crashes on Android
#else
myUserGecos = myVal [] userGecos myUserGecos = myVal [] userGecos
#endif
myVal :: [String] -> (UserEntry -> String) -> IO String myVal :: [String] -> (UserEntry -> String) -> IO String
myVal envvars extract = maybe (extract <$> getpwent) return =<< check envvars myVal envvars extract = maybe (extract <$> getpwent) return =<< check envvars