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

2015-12-26 03:07:36 +01:00
parent 3639dec1d3
commit d727566e86
1 changed files with 2 additions and 0 deletions
--- a/src/IO/File.hs
+++ b/src/IO/File.hs
@@ -398,6 +398,7 @@ executeFile _ _      = return Nothing


 createFile :: AnchoredFile FileInfo -> FileName -> IO ()
+createFile _ ""   = return ()
 createFile _ "."  = return ()
 createFile _ ".." = return ()
 createFile (SADir td) fn = do
@@ -423,6 +424,7 @@ createFile (SADir td) fn = do

 renameFile :: AnchoredFile FileInfo -> FileName -> IO ()
 renameFile (_ :/ Failed {}) _ = return ()
+renameFile _ ""               = return ()
 renameFile _ "."              = return ()
 renameFile _ ".."             = return ()
 renameFile af fn = do