a few things available elsewhere...

This commit is contained in:
Joey Hess 2012-01-23 16:57:45 -04:00
parent bed495db64
commit 5e172b43c4
2 changed files with 10 additions and 3 deletions

View file

@ -47,7 +47,10 @@ dirContains a b = a == b || a' == b' || (a'++"/") `isPrefixOf` b'
a' = norm a
b' = norm b
{- Converts a filename into a normalized, absolute path. -}
{- Converts a filename into a normalized, absolute path.
-
- Unlike Directory.canonicalizePath, this does not require the path
- already exists. -}
absPath :: FilePath -> IO FilePath
absPath file = do
cwd <- getCurrentDirectory