fix all remaining -Wall warnings on Windows
This commit is contained in:
parent
360ecb9f35
commit
3f6e4b8c7c
13 changed files with 57 additions and 44 deletions
|
@ -218,15 +218,15 @@ link file key mcache = flip catchAnnex (undo file key) $ do
|
|||
l <- inRepo $ gitAnnexLink file key
|
||||
replaceFile file $ makeAnnexLink l
|
||||
|
||||
#ifdef WITH_CLIBS
|
||||
#ifndef __ANDROID__
|
||||
-- touch symlink to have same time as the original file,
|
||||
-- as provided in the InodeCache
|
||||
case mcache of
|
||||
#if defined(WITH_CLIBS) && ! defined(__ANDROID__)
|
||||
Just c -> liftIO $ touch file (TimeSpec $ inodeCacheToMtime c) False
|
||||
#else
|
||||
Just _ -> noop
|
||||
#endif
|
||||
Nothing -> noop
|
||||
#endif
|
||||
#endif
|
||||
|
||||
return l
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue