From af6516a454c02c2364c4d0995bbd64fc5e2b2502 Mon Sep 17 00:00:00 2001 From: hasufell 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: ----