hasufell/hpath
1
1
Fork 0
Code Issues 8 Pull Requests Releases Wiki Activity

Add takeAllParents

Browse Source
This commit is contained in:
Julian Ospald 2020-01-26 20:00:46 +01:00
parent 7d0ca1c230
commit b7cd5ba857
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
hpath-filepath/src/System/Posix/FilePath.hs
View File

@ -59,6 +59,7 @@ module System.Posix.FilePath (
, splitPath , splitPath
, joinPath , joinPath
, splitDirectories , splitDirectories
, takeAllParents
-- * Trailing slash functions -- * Trailing slash functions
, hasTrailingPathSeparator , hasTrailingPathSeparator
@ -500,6 +501,21 @@ splitDirectories x
splitter = filter (not . BS.null) . BS.split pathSeparator splitter = filter (not . BS.null) . BS.split pathSeparator
-- |Get all parents of a path.
--
-- >>> takeAllParents "/abs/def/dod"
-- ["/abs/def","/abs","/"]
-- >>> takeAllParents "/foo"
-- ["/"]
-- >>> takeAllParents "/"
-- []
takeAllParents :: RawFilePath -> [RawFilePath]
takeAllParents p
| np == BS.singleton pathSeparator = []
| otherwise = takeDirectory np : takeAllParents (takeDirectory np)
where
np = normalise p
------------------------ ------------------------
-- Trailing slash functions -- Trailing slash functions