Revert "avoid hsc files on Windows"

This reverts commit 158ba9d332.

My windows build environment was broken; reverted to backup.
This commit is contained in:
Joey Hess 2013-10-17 17:53:50 -04:00
parent bf11eac772
commit ad86926f09
3 changed files with 5 additions and 17 deletions

View file

@ -15,10 +15,8 @@ import Common.Annex
import Command
import qualified Annex.Queue
#ifndef __ANDROID__
#ifdef WITH_CLIBS
import Utility.Touch
#endif
#endif
def :: [Command]
def = [notDirect $ noCommit $ command "fix" paramPaths seek
@ -39,19 +37,15 @@ perform :: FilePath -> FilePath -> CommandPerform
perform file link = do
liftIO $ do
#ifndef __ANDROID__
#ifdef WITH_CLIBS
-- preserve mtime of symlink
mtime <- catchMaybeIO $ TimeSpec . modificationTime
<$> getSymbolicLinkStatus file
#endif
#endif
createDirectoryIfMissing True (parentDir file)
removeFile file
createSymbolicLink link file
#ifndef __ANDROID__
#ifdef WITH_CLIBS
maybe noop (\t -> touch file t False) mtime
#endif
#endif
next $ cleanup file