fix windows build
This commit is contained in:
parent
b61575516b
commit
645833774d
1 changed files with 1 additions and 1 deletions
|
@ -586,8 +586,8 @@ linkOrCopy key src dest = catchBoolIO $
|
||||||
)
|
)
|
||||||
where
|
where
|
||||||
hardlink = do
|
hardlink = do
|
||||||
#ifndef mingw32_HOST_OS
|
|
||||||
s <- getstat
|
s <- getstat
|
||||||
|
#ifndef mingw32_HOST_OS
|
||||||
if linkCount s > 1
|
if linkCount s > 1
|
||||||
then copy s
|
then copy s
|
||||||
else liftIO (createLink src dest >> return True)
|
else liftIO (createLink src dest >> return True)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue