msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

If directory < 1.2.3.0 then don't set modification times on copy

Browse Source
This commit is contained in:
John J. Camilleri
2018-10-31 09:13:52 +01:00
parent e30fa8933f
commit 62ea7c82a9
1 changed files with 8 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Make.hs
View File

@@ -1,6 +1,6 @@
{-# LANGUAGE CPP #-}
-- | Main build script for RGL -- | 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.List (find,isPrefixOf,isSuffixOf,(\\),unfoldr)
import Data.Maybe (catMaybes) import Data.Maybe (catMaybes)
@@ -10,7 +10,10 @@ import System.Exit (ExitCode(..),exitFailure)
import System.Environment (getArgs,lookupEnv) import System.Environment (getArgs,lookupEnv)
import System.Process (rawSystem) import System.Process (rawSystem)
import System.FilePath ((</>)) -- ,takeFileName,addExtension,dropExtension) 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) import Control.Monad (when,unless)
main :: IO () main :: IO ()
@@ -78,7 +81,9 @@ copyAll msg from to = do
copyFileWithModificationTime :: FilePath -> FilePath -> IO () copyFileWithModificationTime :: FilePath -> FilePath -> IO ()
copyFileWithModificationTime source destination = do copyFileWithModificationTime source destination = do
copyFile source destination copyFile source destination
#if MIN_VERSION_directory(1,2,3)
getModificationTime source >>= setModificationTime destination getModificationTime source >>= setModificationTime destination
#endif
-- | Remove dist directory -- | Remove dist directory
clean :: IO () clean :: IO ()