From 048bf8a328ead41dde116014fe9c68bde3bfb558 Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@hasufell.de>
Date: Wed, 30 Dec 2015 02:16:39 +0100
Subject: [PATCH] LIB: don't do anything for FileLike (CharDev etc) yet

---
 src/IO/File.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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"