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

better ~/ handling

Browse source
This commit is contained in:
Joey Hess 2012-08-02 07:47:50 -04:00
parent 112ce4f49c
commit 9a038b4a9b
3 changed files with 12 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Utility/Path.hs
View file

@ -132,6 +132,14 @@ runPreserveOrder a files = preserveOrder files <$> a files
myHomeDir :: IO FilePath
myHomeDir = homeDirectory <$> (getUserEntryForID =<< getEffectiveUserID)
{- Converts paths in the home directory to use ~/ -}
relHome :: FilePath -> IO String
relHome path = do
home <- myHomeDir
return $ if dirContains home path
then "~/" ++ relPathDirToFile home path
else path
{- Checks if a command is available in PATH. -}
inPath :: String -> IO Bool
inPath command = getSearchPath >>= anyM indir