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

This commit is contained in:
bringert
2006-12-15 14:06:42 +00:00
parent 9e3500024b
commit 5001ad8ed3

View File

@@ -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