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

Merge remote-tracking branch 'upstream/master'

Browse Source
This commit is contained in:
odanoburu
2018-10-31 13:50:23 +00:00
parent 7aa2837dd7 5172586aa8
commit 4e8b5d6c6f
1 changed files with 14 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Make.hs
View File

@@ -1,16 +1,19 @@
{-# 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)
import System.IO (hPutStrLn,stderr) import System.IO (hPutStrLn,stderr)
import System.IO.Error (catchIOError) import System.IO.Error (catchIOError)
import System.Exit (ExitCode(..),die) 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 __GLASGOW_HASKELL__>=800
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 __GLASGOW_HASKELL__>=800
getModificationTime source >>= setModificationTime destination getModificationTime source >>= setModificationTime destination
#endif
-- | Remove dist directory -- | Remove dist directory
clean :: IO () clean :: IO ()
@@ -447,3 +452,8 @@ parallel_ ms = sequence_ ms
putErrLn :: String -> IO () putErrLn :: String -> IO ()
putErrLn = hPutStrLn stderr putErrLn = hPutStrLn stderr
die :: String -> IO a
die s = do
hPutStrLn stderr s
exitFailure