From af6516a454c02c2364c4d0995bbd64fc5e2b2502 Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@gentoo.org>
Date: Sun, 27 Dec 2015 05:31:19 +0100
Subject: [PATCH] LIB: rm unneded import

---
 src/Data/DirTree.hs | 16 ----------------
 1 file changed, 16 deletions(-)

diff --git a/src/Data/DirTree.hs b/src/Data/DirTree.hs
index 9e8917a..a9738e5 100644
--- a/src/Data/DirTree.hs
+++ b/src/Data/DirTree.hs
@@ -85,10 +85,6 @@ import Safe
     atDef
   , initDef
   )
-import System.Directory
-  (
-    canonicalizePath
-  )
 import System.FilePath
   (
     combine
@@ -598,18 +594,6 @@ normalize fp =
     ff x y        = x ++ [y]
 
 
--- |Like `canonicalizePath` from System.Directory, but preserves the last
--- component if it's a symlink.
-canonicalizePath' :: FilePath -> IO FilePath
-canonicalizePath' fp = do
-  -- TODO: throw fileDoesNotExist error earlier
-  isSymlink <- PF.isSymbolicLink <$> PF.getSymbolicLinkStatus fp
-  if isSymlink
-    then do
-         cbase <- canonicalizePath (baseDir fp)
-         return $ cbase </> topDir fp
-    else canonicalizePath fp
-
 
 ---- IO HELPERS: ----