fix complete pattern in isOldFile

This commit is contained in:
krasimir
2008-04-22 13:09:14 +00:00
parent 09a82c8abb
commit b5e4b73273

View File

@@ -305,6 +305,7 @@ isOldFile f = do
where where
old (PT _ (TS t)) = elem t $ words old (PT _ (TS t)) = elem t $ words
"cat category data def flags fun include lin lincat lindef lintype oper param pattern printname rule" "cat category data def flags fun include lin lincat lindef lintype oper param pattern printname rule"
old _ = False