From 62ea7c82a9084f26e76bc0e26544277cc50577c9 Mon Sep 17 00:00:00 2001 From: "John J. Camilleri" Date: Wed, 31 Oct 2018 09:13:52 +0100 Subject: [PATCH] If directory < 1.2.3.0 then don't set modification times on copy --- Make.hs | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/Make.hs b/Make.hs index b2a6784c0..19bfd8734 100644 --- a/Make.hs +++ b/Make.hs @@ -1,6 +1,6 @@ +{-# LANGUAGE CPP #-} + -- | Main build script for RGL --- There is no associated cabal file, but these dependencies are known: --- * directory >= 1.2.3.0 import Data.List (find,isPrefixOf,isSuffixOf,(\\),unfoldr) import Data.Maybe (catMaybes) @@ -10,7 +10,10 @@ import System.Exit (ExitCode(..),exitFailure) import System.Environment (getArgs,lookupEnv) import System.Process (rawSystem) import System.FilePath (()) -- ,takeFileName,addExtension,dropExtension) -import System.Directory (createDirectoryIfMissing,copyFile,getModificationTime,setModificationTime,getDirectoryContents,removeDirectoryRecursive,findFile) +import System.Directory (createDirectoryIfMissing,copyFile,getDirectoryContents,removeDirectoryRecursive,findFile) +#if MIN_VERSION_directory(1,2,3) +import System.Directory (getModificationTime,setModificationTime) +#endif import Control.Monad (when,unless) main :: IO () @@ -78,7 +81,9 @@ copyAll msg from to = do copyFileWithModificationTime :: FilePath -> FilePath -> IO () copyFileWithModificationTime source destination = do copyFile source destination +#if MIN_VERSION_directory(1,2,3) getModificationTime source >>= setModificationTime destination +#endif -- | Remove dist directory clean :: IO ()