mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix build with unix-2.8.0

Browse source 
got the arguments the wrong way around when I wrote this

also squelch a build warning
This commit is contained in:
Joey Hess 2023-08-01 18:27:12 -04:00
parent 63f76d0ac3
commit eb8e30a2f1
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Annex/Link.hs
View file

@ -44,8 +44,11 @@ import qualified Data.ByteString.Char8 as S8
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
import qualified System.FilePath.ByteString as P import qualified System.FilePath.ByteString as P
#ifndef mingw32_HOST_OS #ifndef mingw32_HOST_OS
#if MIN_VERSION_unix(2,8,0)
#else
import System.PosixCompat.Files (isSymbolicLink) import System.PosixCompat.Files (isSymbolicLink)
#endif #endif
#endif
type LinkTarget = S.ByteString type LinkTarget = S.ByteString
@ -435,7 +438,7 @@ isPointerFile f = catchDefaultIO Nothing $
#else #else
#if MIN_VERSION_unix(2,8,0) #if MIN_VERSION_unix(2,8,0)
bracket bracket
(openFd (fromRawFilePath f) ReadOnly (defaultFileFlags { nofollow = True }) Nothing) (openFd (fromRawFilePath f) ReadOnly (defaultFileFlags { nofollow = True }))
closeFd closeFd
(\fd -> readhandle =<< fdToHandle fd) (\fd -> readhandle =<< fdToHandle fd)
#else #else