Skip to content
Browse files

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

  • Loading branch information...
1 parent e4b5bc0 commit baac9736410db00f03b9f1c7a1c2246a8f6530b9 @atzedijkstra atzedijkstra committed Nov 29, 2012
Showing with 8 additions and 6 deletions.
  1. +4 −4 EHC/preprelease
  2. +4 −2 EHC/src/ehc/EHC/CompilePhase/Module.chs
View
8 EHC/preprelease
@@ -2,10 +2,10 @@
# the things to be done before releasing, and to be run correctly.
-make clean &&
-./configure &&
-make 100/ehclib &&
-make {1,8,20}/ehc &&
+# make clean &&
+# ./configure &&
+# make 100/ehclib &&
+# make {1,8,50}/ehc &&
make uhc &&
make test-expect TEST_VARIANTS=uhc &&
make freeze-test-expect
View
6 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)
})

0 comments on commit baac973

Please sign in to comment.
Something went wrong with that request. Please try again.