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:
@@ -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
2
src/tools/mktoday.sh
Normal file
@@ -0,0 +1,2 @@
|
||||
#!/bin/sh
|
||||
echo 'module Today where today = "'`date`'"' > Today.hs
|
||||
Reference in New Issue
Block a user