avoid hsc files on Windows

This used to work, but now hsc2hs is failing with a usage message.
Since I have not changed my windows build environment at all, it must be
some change due to a change in the cabal file. Perhaps too make flags are
causing it to hit a windows command line length limit?

Anyway, these hsc files did nothing on Windows, so can be omitted and not
built to work around yet another epic windows weirdness.
This commit is contained in:
Joey Hess 2013-10-17 16:35:14 -04:00
parent c02bc07ce0
commit 158ba9d332
3 changed files with 17 additions and 5 deletions

View file

@ -15,8 +15,10 @@ 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
@ -37,15 +39,19 @@ 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