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

Add isSpecialDirectoryEntry

Browse Source
This commit is contained in:
Julian Ospald 2020-01-18 18:43:55 +01:00
parent 1f4e289903
commit 22ddeeadcc
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

@ -73,6 +73,7 @@ module System.Posix.FilePath (
, isAbsolute , isAbsolute
, isValid , isValid
, makeValid , makeValid
, isSpecialDirectoryEntry
, isFileName , isFileName
, hasParentDir , hasParentDir
, hiddenFile , hiddenFile
@ -724,6 +725,21 @@ makeValid path
| otherwise = BS.map (\x -> if x == _nul then _underscore else x) path | otherwise = BS.map (\x -> if x == _nul then _underscore else x) path
-- | Is a FilePath valid, i.e. could you create a file like it?
--
-- >>> isSpecialDirectoryEntry "."
-- True
-- >>> isSpecialDirectoryEntry ".."
-- True
-- >>> isSpecialDirectoryEntry "/random_ path:*"
-- False
isSpecialDirectoryEntry :: RawFilePath -> Bool
isSpecialDirectoryEntry filepath
| BS.pack [_period, _period] == filepath = True
| BS.pack [_period] == filepath = True
| otherwise = False
-- | Is the given path a valid filename? This includes -- | Is the given path a valid filename? This includes
-- "." and "..". -- "." and "..".
-- --