forked from GitHub/gf-rgl
If directory < 1.2.3.0 then don't set modification times on copy
This commit is contained in:
11
Make.hs
11
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 ()
|
||||
|
||||
Reference in New Issue
Block a user