5d97898a7c
Needs unix 2.7.2, but that was included in ghc 8.0.1 (and much older) so not really a new dep.
44 lines
1 KiB
Haskell
44 lines
1 KiB
Haskell
{- Portability shim for touching a file.
|
|
-
|
|
- Copyright 2011-2018 Joey Hess <id@joeyh.name>
|
|
-
|
|
- License: BSD-2-clause
|
|
-}
|
|
|
|
{-# LANGUAGE CPP #-}
|
|
|
|
module Utility.Touch (
|
|
touchBoth,
|
|
touch
|
|
) where
|
|
|
|
#if ! defined(mingw32_HOST_OS)
|
|
|
|
import System.Posix.Files
|
|
import System.Posix.Types
|
|
import Data.Time.Clock.POSIX
|
|
|
|
{- Changes the access and modification times of an existing file.
|
|
Can follow symlinks, or not. -}
|
|
touchBoth :: FilePath -> POSIXTime -> POSIXTime -> Bool -> IO ()
|
|
touchBoth file atime mtime follow
|
|
| follow = setFileTimesHiRes file atime mtime
|
|
| otherwise = setSymbolicLinkTimesHiRes file atime mtime
|
|
|
|
{- Changes the access and modification times of an existing file
|
|
- to the same value. Can follow symlinks, or not. -}
|
|
touch :: FilePath -> POSIXTime -> Bool -> IO ()
|
|
touch file mtime = touchBoth file mtime mtime
|
|
|
|
#else
|
|
|
|
import Data.Time.Clock.POSIX
|
|
|
|
{- Noop for Windows -}
|
|
touchBoth :: FilePath -> POSIXTime -> POSIXTime -> Bool -> IO ()
|
|
touchBoth _ _ _ _ = return ()
|
|
|
|
touch :: FilePath -> TimeSpec -> Bool -> IO ()
|
|
touch _ _ _ = return ()
|
|
|
|
#endif
|