1
0
forked from GitHub/gf-core

Added configure script, added install target, changed MkToday to a shell script to avoid a build-time dependency on runhugs

This commit is contained in:
bringert
2004-06-22 08:56:20 +00:00
parent 464a2937cb
commit 9cc3e87735
8 changed files with 2232 additions and 17 deletions

View File

@@ -1,15 +0,0 @@
module Main where
import System
main :: IO ()
main = do
system "date >foo.tmp"
d0 <- readFile "foo.tmp"
let d = head $ lines d0
writeFile "Today.hs" $ mkToday d
system "rm foo.tmp"
return ()
mkToday d = "module Today where today = \"" ++ d ++ "\"\n"

2
src/tools/mktoday.sh Normal file
View File

@@ -0,0 +1,2 @@
#!/bin/sh
echo 'module Today where today = "'`date`'"' > Today.hs