hasufell/hsfm
1
1
Fork 0
Code Issues 33 Pull Requests Releases Wiki Activity

LIB: don't allow empty FileName argument in createFile/renameFile

Browse Source
This commit is contained in:
Julian Ospald 2015-12-26 03:07:36 +01:00
parent 3639dec1d3
commit d727566e86
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/IO/File.hs
View File

@ -398,6 +398,7 @@ executeFile _ _ = return Nothing
createFile :: AnchoredFile FileInfo -> FileName -> IO () createFile :: AnchoredFile FileInfo -> FileName -> IO ()
createFile _ "" = return ()
createFile _ "." = return () createFile _ "." = return ()
createFile _ ".." = return () createFile _ ".." = return ()
createFile (SADir td) fn = do createFile (SADir td) fn = do
@ -423,6 +424,7 @@ createFile (SADir td) fn = do
renameFile :: AnchoredFile FileInfo -> FileName -> IO () renameFile :: AnchoredFile FileInfo -> FileName -> IO ()
renameFile (_ :/ Failed {}) _ = return () renameFile (_ :/ Failed {}) _ = return ()
renameFile _ "" = return ()
renameFile _ "." = return () renameFile _ "." = return ()
renameFile _ ".." = return () renameFile _ ".." = return ()
renameFile af fn = do renameFile af fn = do