diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-10-17 17:53:50 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-10-17 17:53:50 -0400 |
| commit | 659570ea45c917bffe58c0389b8d7c6b910136c6 (patch) | |
| tree | ae1ea24f9a39003e3c9320544e809f786b490e8d /Command/Fix.hs | |
| parent | ecd72936a56320d0aceb431f795c457061be3d27 (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.hs | 6 |
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 |