LIB: don't do anything for FileLike (CharDev etc) yet

2015-12-30 02:16:39 +01:00 · 2015-12-30 02:16:39 +01:00 · 048bf8a328
commit 048bf8a328
parent ed32961155
1 changed files with 1 additions and 1 deletions
--- a/src/IO/File.hs
+++ b/src/IO/File.hs
@ -340,7 +340,7 @@ deleteDirRecursive f@(_ :/ Dir {}) = do
    case file of
      (_ :/ SymLink {}) -> deleteSymlink file
      (_ :/ Dir {})     -> deleteDirRecursive file
-      (AFileLike _)     -> removeLink (fullPath file)
+      (_ :/ RegFile {}) -> removeLink (fullPath file)
      _                 -> throw $ FileDoesExist (fullPath file)
  removeDirectory fp
 deleteDirRecursive _ = throw $ InvalidOperation "wrong input type"