diff options
| author | bjorn <bjorn@bringert.net> | 2008-02-15 20:13:01 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-02-15 20:13:01 +0000 |
| commit | 8873196f8471574a2be098b8e84c6f78318a76ff (patch) | |
| tree | 11c71f0c98eb5e570807e29e0265d648fdf115db /src | |
| parent | 5b4a228215062d6c08b7875d69b6dadaa63611f7 (diff) | |
Rename gfcats to startupcats in PGF.
Diffstat (limited to 'src')
| -rw-r--r-- | src/GF/GFCC/Raw/ConvertGFCC.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/GFCC/Raw/ConvertGFCC.hs b/src/GF/GFCC/Raw/ConvertGFCC.hs index a6103b710..0b010d604 100644 --- a/src/GF/GFCC/Raw/ConvertGFCC.hs +++ b/src/GF/GFCC/Raw/ConvertGFCC.hs @@ -67,7 +67,7 @@ toConcr = foldl add (Concr { add cnc (App (CId "parser") ts) = cnc { parser = Just (toPInfo ts) } toPInfo :: [RExp] -> FCFPInfo -toPInfo [App (CId "rules") rs, App (CId "gfcats") cs] = buildFCFPInfo (rules, cats) +toPInfo [App (CId "rules") rs, App (CId "startupcats") cs] = buildFCFPInfo (rules, cats) where rules = lmap toFRule rs cats = fromList [(c, lmap expToInt fs) | App c fs <- cs] @@ -219,7 +219,7 @@ fromTerm e = case e of fromPInfo :: FCFPInfo -> RExp fromPInfo p = app "parser" [ app "rules" [fromFRule rule | rule <- Array.elems (allRules p)], - app "gfcats" [App f (lmap intToExp cs) | (f,cs) <- toList (startupCats p)] + app "startupcats" [App f (lmap intToExp cs) | (f,cs) <- toList (startupCats p)] ] fromFRule :: FRule -> RExp |