GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 09:28:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

Check GHC version instead of directory version

Browse Source 
Explanation by Thomas Hallgren:

These MIN_VERSION macros are traditionally provided by Cabal, in dist/build/autogen/cabal_macros.h. It is only with ghc>=8.0 that ghc itself provides them, so with ghc<8, runghc Make.hs fails, as can be seen in the included message.

Incidentally, ghc-8.0.1 also comes with directory-1.3, so I suggest using

    #if __GLASGOW_HASKELL__>=800

instead. Then Make.hs will work with older versions of ghc, and set the modification times if you are using ghc>=8.0.
This commit is contained in:
John J. Camilleri
2018-10-31 11:10:05 +01:00
parent 62ea7c82a9
commit 5172586aa8
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Make.hs
View File

@@ -11,7 +11,7 @@ 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,getDirectoryContents,removeDirectoryRecursive,findFile) import System.Directory (createDirectoryIfMissing,copyFile,getDirectoryContents,removeDirectoryRecursive,findFile)
#if MIN_VERSION_directory(1,2,3) #if __GLASGOW_HASKELL__>=800
import System.Directory (getModificationTime,setModificationTime) import System.Directory (getModificationTime,setModificationTime)
#endif #endif
import Control.Monad (when,unless) import Control.Monad (when,unless)
@@ -81,7 +81,7 @@ 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) #if __GLASGOW_HASKELL__>=800
getModificationTime source >>= setModificationTime destination getModificationTime source >>= setModificationTime destination
#endif #endif