diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-03-05 11:22:32 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-03-05 11:22:32 -0400 |
commit | 80de75d25c19f37564ac6db97db534f40d26f108 (patch) | |
tree | 0ccf8611ba4fdfdccb6f90cee16c76a481d9feaa /Utility/Touch.hs | |
parent | aa5de5e25c46cbf5c0eb2cd6e0fb6e84be5586fb (diff) | |
parent | cd8e2e4eeb70d22f9a7daa375474d80aa188574b (diff) |
Merge branch 'no-cbits'
Diffstat (limited to 'Utility/Touch.hs')
-rw-r--r-- | Utility/Touch.hs | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/Utility/Touch.hs b/Utility/Touch.hs new file mode 100644 index 000000000..60b9cb928 --- /dev/null +++ b/Utility/Touch.hs @@ -0,0 +1,52 @@ +{- More control over touching a file. + - + - Copyright 2011 Joey Hess <id@joeyh.name> + - + - License: BSD-2-clause + -} + +{-# LANGUAGE CPP #-} + +module Utility.Touch ( + TimeSpec(..), + touchBoth, + touch +) where + +#if ! defined(mingw32_HOST_OS) && ! defined(__ANDROID__) + +#if MIN_VERSION_unix(2,7,0) + +import System.Posix.Files +import System.Posix.Types + +newtype TimeSpec = TimeSpec EpochTime + +{- Changes the access and modification times of an existing file. + Can follow symlinks, or not. Throws IO error on failure. -} +touchBoth :: FilePath -> TimeSpec -> TimeSpec -> Bool -> IO () +touchBoth file (TimeSpec atime) (TimeSpec mtime) follow + | follow = setFileTimes file atime mtime + | otherwise = setSymbolicLinkTimesHiRes file (realToFrac atime) (realToFrac mtime) + +touch :: FilePath -> TimeSpec -> Bool -> IO () +touch file mtime = touchBoth file mtime mtime + +#else +import Utility.Touch.Old +#endif + +#else + +import System.PosixCompat + +newtype TimeSpec = TimeSpec EpochTime + +{- Noop for Windows -} +touchBoth FilePath -> TimeSpec -> TimeSpec -> Bool -> IO () +touchBoth _ _ _ _ = return () + +touch :: FilePath -> TimeSpec -> Bool -> IO () +touch _ _ = return () + +#endif |