mods of Dirk Ullrich, for time compat, in slightly modified form

UU-ComputerScience · Nov 29, 2012 · baac973 · baac973
1 parent e4b5bc0
commit baac973
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 6 deletions.
diff --git a/EHC/preprelease b/EHC/preprelease
@@ -2,10 +2,10 @@
 
 # the things to be done before releasing, and to be run correctly.
 
-make clean                                  &&
+# make clean                                  &&
-./configure                                 &&
+# ./configure                                 &&
-make 100/ehclib                             &&
+# make 100/ehclib                             &&
-make {1,8,20}/ehc                           &&
+# make {1,8,50}/ehc                           &&
 make uhc                                    &&
 make test-expect TEST_VARIANTS=uhc          &&
 make freeze-test-expect                     

diff --git a/EHC/src/ehc/EHC/CompilePhase/Module.chs b/EHC/src/ehc/EHC/CompilePhase/Module.chs
@@ -12,7 +12,9 @@ Module analysis
 %%]
 %%[50 import(qualified UHC.Util.Rel as Rel)
 %%]
-%%[50 import(UHC.Util.Time, System.Directory)
+%%[50 import(UHC.Util.Time, UHC.Util.FPath)
+%%]
+%%[50 import(System.Directory)
 %%]
 
 %%[50 import({%{EH}EHC.Common})
@@ -156,7 +158,7 @@ cpGetMetaInfo gm modNm
                       (do { lift $ putStrLn ("meta info of: " ++ show (ecuModNm ecu) ++ ", file: " ++ n ++ ", exists: " ++ show nExists)
                           })
                ; when nExists
-                      (do { t <- lift $ getModificationTime n
+                      (do { t <- lift $ fpathGetModificationTime fp
                           ; when (ehcOptVerbosity opts >= VerboseDebug)
                                  (do { lift $ putStrLn ("time stamp of: " ++ show (ecuModNm ecu) ++ ", time: " ++ show t)
                                      })