From d1c5fafc69f85ea69e7f1c68109422c5e2c3791d Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Mon, 11 Mar 2013 12:57:09 +0000
Subject: Additional changes for GHC 7.4 & 7.6 compatibility

---
 src/compiler/GF/Compile.hs          | 2 +-
 src/compiler/GF/System/Directory.hs | 7 +++++++
 2 files changed, 8 insertions(+), 1 deletion(-)
 create mode 100644 src/compiler/GF/System/Directory.hs

(limited to 'src/compiler/GF')

diff --git a/src/compiler/GF/Compile.hs b/src/compiler/GF/Compile.hs
index 9b71c0f39..84aa3d7d9 100644
--- a/src/compiler/GF/Compile.hs
+++ b/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
diff --git a/src/compiler/GF/System/Directory.hs b/src/compiler/GF/System/Directory.hs
new file mode 100644
index 000000000..3ee1f3550
--- /dev/null
+++ b/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)
-- 
cgit v1.2.3