diff --git a/src/IO/File.hs b/src/IO/File.hs
index a4946df..d15df7f 100644
--- 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"