avoid warnings about not exported System.Directory.isSymbolicLink
This commit is contained in:
parent
9f6c29fb38
commit
b22409db38
20 changed files with 18 additions and 21 deletions
|
@ -6,9 +6,12 @@
|
|||
-}
|
||||
|
||||
{-# LANGUAGE CPP #-}
|
||||
{-# OPTIONS_GHC -fno-warn-tabs #-}
|
||||
{-# OPTIONS_GHC -fno-warn-tabs -w #-}
|
||||
|
||||
module Utility.Directory where
|
||||
module Utility.Directory (
|
||||
module Utility.Directory,
|
||||
module System.Directory
|
||||
) where
|
||||
|
||||
import System.IO.Error
|
||||
import System.Directory hiding (isSymbolicLink)
|
||||
|
|
|
@ -33,9 +33,9 @@ import Utility.Path
|
|||
import Utility.UserInfo
|
||||
import Utility.Process
|
||||
import Utility.PartialPrelude
|
||||
import Utility.Directory
|
||||
|
||||
import System.Environment
|
||||
import System.Directory hiding (isSymbolicLink)
|
||||
import System.FilePath
|
||||
import Data.List
|
||||
import Data.String.Utils
|
||||
|
|
|
@ -14,7 +14,6 @@ import Utility.Monad
|
|||
import Utility.Path
|
||||
|
||||
import Data.Maybe
|
||||
import System.Directory hiding (isSymbolicLink)
|
||||
import System.FilePath
|
||||
import Data.List.Utils
|
||||
import System.Posix.Files
|
||||
|
|
|
@ -34,7 +34,6 @@ import Data.List
|
|||
import Network.BSD
|
||||
import System.FilePath
|
||||
import Data.Hash.MD5
|
||||
import System.Directory hiding (isSymbolicLink)
|
||||
import Control.Applicative
|
||||
import Prelude
|
||||
|
||||
|
|
|
@ -12,7 +12,6 @@ module Utility.Path where
|
|||
|
||||
import Data.String.Utils
|
||||
import System.FilePath
|
||||
import System.Directory hiding (isSymbolicLink)
|
||||
import Data.List
|
||||
import Data.Maybe
|
||||
import Data.Char
|
||||
|
@ -29,6 +28,7 @@ import Utility.Exception
|
|||
import qualified "MissingH" System.Path as MissingH
|
||||
import Utility.Monad
|
||||
import Utility.UserInfo
|
||||
import Utility.Directory
|
||||
|
||||
{- Simplifies a path, removing any "." component, collapsing "dir/..",
|
||||
- and removing the trailing path separator.
|
||||
|
|
|
@ -11,9 +11,9 @@
|
|||
module Utility.Tmp where
|
||||
|
||||
import System.IO
|
||||
import System.Directory hiding (isSymbolicLink)
|
||||
import Control.Monad.IfElse
|
||||
import System.FilePath
|
||||
import System.Directory
|
||||
import Control.Monad.IO.Class
|
||||
#ifndef mingw32_HOST_OS
|
||||
import System.Posix.Temp (mkdtemp)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue