From 24c456cadfc3f207beda732ced664c62bedbebe0 Mon Sep 17 00:00:00 2001 From: bringert Date: Fri, 21 Dec 2007 17:24:59 +0000 Subject: [PATCH] Fixed bug in toGFCC: cflags where mistakenly taken from aflags. --- src/GF/GFCC/Raw/ConvertGFCC.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/GF/GFCC/Raw/ConvertGFCC.hs b/src/GF/GFCC/Raw/ConvertGFCC.hs index b5bf47e1b..96a66f151 100644 --- a/src/GF/GFCC/Raw/ConvertGFCC.hs +++ b/src/GF/GFCC/Raw/ConvertGFCC.hs @@ -46,7 +46,7 @@ toGFCC (Grm [ App (CId "param") params ]) = (lang, Concr { - cflags = fromAscList [(f,v) | App f [AStr v] <- afls], + cflags = fromAscList [(f,v) | App f [AStr v] <- fls], lins = fromAscList [(f,toTerm v) | App f [v] <- ls], opers = fromAscList [(f,toTerm v) | App f [v] <- ops], lincats = fromAscList [(f,toTerm v) | App f [v] <- lincs],