On Sun, Nov 20, 2011 at 20:36, Ben Gamari <bgamari.f...@gmail.com> 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 allber...@gmail.com
wandering unix systems administrator (available) (412) 475-9364 vm/sms
_______________________________________________
Haskell-Cafe mailing list
Haskell-Cafe@haskell.org
http://www.haskell.org/mailman/listinfo/haskell-cafe
