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.IO
import System.FilePath import System.FilePath
import System.Directory import System.Directory hiding (isSymbolicLink)
import Data.List import Data.List
import Control.Monad import Control.Monad
import Control.Monad.IfElse import Control.Monad.IfElse

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

@ -14,7 +14,7 @@ import Data.Monoid as X
import Data.Default as X import Data.Default as X
import System.FilePath 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) import System.IO as X hiding (FilePath)
#ifndef mingw32_HOST_OS #ifndef mingw32_HOST_OS
import System.Posix.IO as X hiding (createPipe) import System.Posix.IO as X hiding (createPipe)

View file

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

View file

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

View file

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

View file

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

View file

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

View file

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

View file

@ -11,7 +11,7 @@
module Utility.Tmp where module Utility.Tmp where
import System.IO import System.IO
import System.Directory import System.Directory hiding (isSymbolicLink)
import Control.Monad.IfElse import Control.Monad.IfElse
import System.FilePath import System.FilePath
import Control.Monad.IO.Class 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 git-annex (6.20160419) unstable; urgency=medium
* Fix bug that prevented resuming of uploads to encrypted special remotes * Fix bug that prevented resuming of uploads to encrypted special remotes