diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-04-09 12:34:49 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-04-09 12:34:49 -0400 |
| commit | 141e55ff11394e2f162397957c96c02ad3f0bd37 (patch) | |
| tree | fd2622fdafa929d647eec62c77c5d031736b4968 /Utility.hs | |
| parent | e7d30fe3da0530bce6e8498ecb9020bbbabccf43 (diff) | |
store annex.uuid in bup repos
Diffstat (limited to 'Utility.hs')
| -rw-r--r-- | Utility.hs | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/Utility.hs b/Utility.hs index 72f5c5063..1c6b4d21e 100644 --- a/Utility.hs +++ b/Utility.hs @@ -23,6 +23,7 @@ module Utility ( safeWriteFile, dirContains, dirContents, + myHomeDir, prop_idempotent_shellEscape, prop_idempotent_shellEscape_multiword, @@ -36,6 +37,7 @@ import System.Posix.Process import System.Posix.Signals import System.Posix.Files import System.Posix.Types +import System.Posix.User import Data.String.Utils import System.Path import System.FilePath @@ -247,3 +249,10 @@ dirContents d = do notcruft "." = False notcruft ".." = False notcruft _ = True + +{- Current user's home directory. -} +myHomeDir :: IO FilePath +myHomeDir = do + uid <- getEffectiveUserID + u <- getUserEntryForID uid + return $ homeDirectory u |