Additional changes for GHC 7.4 & 7.6 compatibility

src/compiler/GF/Compile.hs

@@ -27,7 +27,7 @@ import GF.Data.Operations
 
 import Control.Monad
 import System.IO
-import System.Directory
+import GF.System.Directory
 import System.FilePath
 import qualified Data.Map as Map
 --import qualified Data.Set as Set

src/compiler/GF/System/Directory.hs

@@ -0,0 +1,7 @@
+-- | Isolate backwards incompatible library changes to 'getModificationTime'
+module GF.System.Directory(getModificationTime,module D) where
+import qualified System.Directory as D
+import System.Directory as D hiding (getModificationTime)
+import Data.Time.Compat
+
+getModificationTime path = fmap toUTCTime (D.getModificationTime path)

src/compiler/GFServer.hs

@@ -10,11 +10,10 @@ import System.Random(randomRIO)
 import System.IO(stderr,hPutStrLn)
 import GF.System.Catch(try)
 import System.IO.Error(isAlreadyExistsError)
-import System.Directory(doesDirectoryExist,doesFileExist,createDirectory,
-                        setCurrentDirectory,getCurrentDirectory,
-                        getDirectoryContents,removeFile,removeDirectory,
-                        getModificationTime)
-import Data.Time.Compat (toUTCTime)
+import GF.System.Directory(doesDirectoryExist,doesFileExist,createDirectory,
+                           setCurrentDirectory,getCurrentDirectory,
+                           getDirectoryContents,removeFile,removeDirectory,
+                           getModificationTime)
 import Data.Time (formatTime)
 import System.Locale(defaultTimeLocale,rfc822DateFormat)
 import System.FilePath(dropExtension,takeExtension,takeFileName,takeDirectory,