On Sun, Nov 20, 2011 at 20:36, Ben Gamari wrote:

expandUser :: FilePath -> IO FilePath expandUser p = if "~/" `isPrefixOf` p then do u <- getLoginName return $ u ++ drop 2 p else return p

expandUser "~" = fmap homeDirectory getLoginName expandUser ('~':'/':p) = getLoginName >>= fmap ((++ p) . homeDirectory) getUserEntryForName expandUser ('~':up) = let (u,p) = break (== '/') up in fmap ((++ (drop 1 p)) . homeDirectory (getUserEntryForName u) expandUser p = p Although arguably there should be some error checking. -- brandon s allbery allbery.b@gmail.com wandering unix systems administrator (available) (412) 475-9364 vm/sms

On 21/11/11 02:36, Ben Gamari wrote:

On the whole, the filepath package does an excellent job of providing basic path manipulation tools, one weakness is the inability to resolve "~/..." style POSIX paths. Python implements this with os.path.expanduser. Perhaps a similar function might be helpful in filepath?

On windows there are folders like %UserProfile% and %ProgramFiles%. There is a function in the API, ExpandEnvironmentStrings, for expanding them. I think it makes sense that, if a function that expands "~" is added to filepath, it should do also this expanding on windows. That also means that 'expandUser' is not the right name. Twan