msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

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

Browse Source
This commit is contained in:
bringert
2006-12-15 14:06:42 +00:00
parent 0b7fef1a33
commit 1f1be57279
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/tools/mktoday.sh
View File

@@ -1,6 +1,7 @@
#!/bin/sh #!/bin/sh
echo 'module GF.Today (today,version) where' > GF/Today.hs 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,version :: String' >> GF/Today.hs
echo 'today = "'`date`'"' >> GF/Today.hs echo 'today = "'`date`'"' >> GF/Today.hs
echo 'version = "'$1'"' >> GF/Today.hs echo 'version = "'$1'"' >> GF/Today.hs