From d80c1b22ce3d4eac11fcd2b0b3353830666a2ec6 Mon Sep 17 00:00:00 2001 From: krasimir Date: Tue, 22 Apr 2008 13:09:14 +0000 Subject: [PATCH] fix complete pattern in isOldFile --- src/GF/Devel/ReadFiles.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/GF/Devel/ReadFiles.hs b/src/GF/Devel/ReadFiles.hs index 36b932ed0..0637b48f1 100644 --- a/src/GF/Devel/ReadFiles.hs +++ b/src/GF/Devel/ReadFiles.hs @@ -305,6 +305,7 @@ isOldFile f = do where old (PT _ (TS t)) = elem t $ words "cat category data def flags fun include lin lincat lindef lintype oper param pattern printname rule" + old _ = False