summaryrefslogtreecommitdiff
path: root/Command/Fix.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-10-17 17:53:50 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-10-17 17:53:50 -0400
commit659570ea45c917bffe58c0389b8d7c6b910136c6 (patch)
treeae1ea24f9a39003e3c9320544e809f786b490e8d /Command/Fix.hs
parentecd72936a56320d0aceb431f795c457061be3d27 (diff)
Revert "avoid hsc files on Windows"
This reverts commit 699a90bdc195a67c5aa5fca34fcaa07fb2b530ae. My windows build environment was broken; reverted to backup.
Diffstat (limited to 'Command/Fix.hs')
-rw-r--r--Command/Fix.hs6
1 files changed, 0 insertions, 6 deletions
diff --git a/Command/Fix.hs b/Command/Fix.hs
index a1e30eafa..da2627619 100644
--- a/Command/Fix.hs
+++ b/Command/Fix.hs
@@ -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,20 +37,16 @@ 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
cleanup :: FilePath -> CommandCleanup