Fix build with directory-1.2.6.2.

It started exporting a isSymbolicLink which supports windows. But,
git-annex does no use symlinks on windows yet and this conflicts with the
function by the same name from unix-compat, so hide it.
This commit is contained in:
Joey Hess 2016-04-28 13:18:44 -04:00
parent 6566795e4f
commit 5fe450514b
Failed to extract signature
21 changed files with 26 additions and 20 deletions

View file

@ -20,7 +20,7 @@ import Utility.Exception
import System.IO
import System.FilePath
import System.Directory
import System.Directory hiding (isSymbolicLink)
import Data.List
import Control.Monad
import Control.Monad.IfElse

View file

@ -14,7 +14,7 @@ import Utility.FreeDesktop
#ifdef darwin_HOST_OS
import Utility.OSX
import Utility.Path
import System.Directory
import System.Directory hiding (isSymbolicLink)
#endif
installAutoStart :: FilePath -> FilePath -> IO ()

View file

@ -4,7 +4,7 @@
module Build.Configure where
import System.Directory
import System.Directory hiding (isSymbolicLink)
import Control.Applicative
import System.Environment (getArgs)
import Control.Monad.IfElse

View file

@ -20,7 +20,7 @@ import Utility.OSX
import Assistant.Install.AutoStart
import Assistant.Install.Menu
import System.Directory
import System.Directory hiding (isSymbolicLink)
import System.Environment
#ifndef mingw32_HOST_OS
import System.Posix.User

View file

@ -15,7 +15,7 @@ import Text.Parsec
import Text.Parsec.String
import Control.Applicative ((<$>))
import Control.Monad
import System.Directory
import System.Directory hiding (isSymbolicLink)
import Data.Maybe
import Data.List

View file

@ -39,7 +39,7 @@ import Data.String.Utils
import Data.Char
import System.Environment
import System.FilePath
import System.Directory
import System.Directory hiding (isSymbolicLink)
import System.IO
import Control.Monad
import Prelude hiding (log)

View file

@ -12,7 +12,7 @@ module Main where
import System.Environment
import Data.Maybe
import System.FilePath
import System.Directory
import System.Directory hiding (isSymbolicLink)
import Control.Monad
import Data.List
import System.Posix.Files

View file

@ -21,7 +21,7 @@
{-# LANGUAGE OverloadedStrings, FlexibleContexts #-}
import Development.NSIS
import System.Directory
import System.Directory hiding (isSymbolicLink)
import System.FilePath
import Control.Monad
import Control.Applicative

View file

@ -10,7 +10,7 @@ module Main where
import System.Environment (getArgs)
import Data.Maybe
import System.FilePath
import System.Directory
import System.Directory hiding (isSymbolicLink)
import Control.Monad
import Control.Monad.IfElse
import Data.List

View file

@ -12,7 +12,7 @@ module Main where
import Control.Monad.IfElse
import System.Environment
import System.FilePath
import System.Directory
import System.Directory hiding (isSymbolicLink)
import Control.Monad
import Build.BundledPrograms

View file

@ -10,7 +10,7 @@ import Utility.SafeCommand
import System.IO
import System.FilePath
import System.Directory
import System.Directory hiding (isSymbolicLink)
type ConfigKey = String
data ConfigValue =

View file

@ -6,7 +6,7 @@ module Build.Version where
import Data.List
import System.Environment
import System.Directory
import System.Directory hiding (isSymbolicLink)
import Data.Char
import System.Process
import Control.Applicative

View file

@ -14,7 +14,7 @@ import Data.Monoid as X
import Data.Default as X
import System.FilePath as X
import System.Directory as X
import System.Directory as X hiding (isSymbolicLink)
import System.IO as X hiding (FilePath)
#ifndef mingw32_HOST_OS
import System.Posix.IO as X hiding (createPipe)

View file

@ -12,7 +12,7 @@ import Distribution.Verbosity (Verbosity)
import System.FilePath
import Control.Applicative
import Control.Monad
import System.Directory
import System.Directory hiding (isSymbolicLink)
import Data.List
import Control.Exception

View file

@ -11,7 +11,7 @@
module Utility.Directory where
import System.IO.Error
import System.Directory
import System.Directory hiding (isSymbolicLink)
import Control.Monad
import System.FilePath
import Control.Applicative

View file

@ -35,7 +35,7 @@ import Utility.Process
import Utility.PartialPrelude
import System.Environment
import System.Directory
import System.Directory hiding (isSymbolicLink)
import System.FilePath
import Data.List
import Data.String.Utils

View file

@ -14,7 +14,7 @@ import Utility.Monad
import Utility.Path
import Data.Maybe
import System.Directory
import System.Directory hiding (isSymbolicLink)
import System.FilePath
import Data.List.Utils
import System.Posix.Files

View file

@ -34,7 +34,7 @@ import Data.List
import Network.BSD
import System.FilePath
import Data.Hash.MD5
import System.Directory
import System.Directory hiding (isSymbolicLink)
import Control.Applicative
import Prelude

View file

@ -12,7 +12,7 @@ module Utility.Path where
import Data.String.Utils
import System.FilePath
import System.Directory
import System.Directory hiding (isSymbolicLink)
import Data.List
import Data.Maybe
import Data.Char

View file

@ -11,7 +11,7 @@
module Utility.Tmp where
import System.IO
import System.Directory
import System.Directory hiding (isSymbolicLink)
import Control.Monad.IfElse
import System.FilePath
import Control.Monad.IO.Class

6
debian/changelog vendored
View file

@ -1,3 +1,9 @@
git-annex (6.20160420) UNRELEASED; urgency=medium
* Fix build with directory-1.2.6.2.
-- Joey Hess <id@joeyh.name> Thu, 28 Apr 2016 13:17:04 -0400
git-annex (6.20160419) unstable; urgency=medium
* Fix bug that prevented resuming of uploads to encrypted special remotes