Added NOINLINE pragma to Today.hs, to avoid forcing recompilation of modules that depend on GF.Today.

2006-12-15 14:06:42 +00:00
parent 9e3500024b
commit 5001ad8ed3
1 changed files with 1 additions and 0 deletions
--- a/src/tools/mktoday.sh
+++ b/src/tools/mktoday.sh
@@ -1,6 +1,7 @@
 #!/bin/sh

 echo 'module GF.Today (today,version) where' > GF/Today.hs
+echo '{-# NOINLINE today #-}' >> GF/Today.hs
 echo 'today,version :: String' >> GF/Today.hs
 echo 'today = "'`date`'"' >> GF/Today.hs
 echo 'version = "'$1'"' >> GF/Today.hs