changed names of resource-1.3; added a note on homepage on release

This commit is contained in:
aarne
2008-06-25 16:54:35 +00:00
parent 7d721eb16e
commit c5c6d13546
1729 changed files with 113 additions and 32 deletions

View File

@@ -0,0 +1,14 @@
import List
main = do
s <- readFile "constrs"
mapM_ (putStrLn . mkOne) $ lines s
mkOne [] = []
mkOne s =
" mk" ++ cons ++ " " ++ rest ++
"\n =" ++ fun ++ " ;"
where
(fun,rest) = span (/=':') s
cons = last $ takeWhile (/="--") $ words rest