Fixed script to only include .gf files. Updated generated script.

This commit is contained in:
bringert
2004-06-23 09:44:27 +00:00
parent 0f9070bf3a
commit cd3f267daa
2 changed files with 7 additions and 11 deletions

View File

@@ -14,7 +14,7 @@ excluded = ["numerals.Abs.gf"]
main :: IO ()
main = do
system "ls >files"
system "ls *.gf >files"
s <- readFile "files"
writeFile scriptFile $ unlines $ map mkOne $
filter (flip notElem excluded) $ lines s