forked from GitHub/gf-core
Changed mktoday to generate use hierarchical name
This commit is contained in:
@@ -1,6 +1,6 @@
|
||||
#!/bin/sh
|
||||
|
||||
echo 'module Today (today) where' > Today.hs
|
||||
echo 'today :: String' >> Today.hs
|
||||
echo 'today = "'`date`'"' >> Today.hs
|
||||
echo 'module GF.Today (today) where' > GF/Today.hs
|
||||
echo 'today :: String' >> GF/Today.hs
|
||||
echo 'today = "'`date`'"' >> GF/Today.hs
|
||||
|
||||
|
||||
Reference in New Issue
Block a user