GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-21 18:59:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

prefix and variants restored in linearization

Browse Source
This commit is contained in:
aarne
2008-06-22 09:01:32 +00:00
parent 7a227a136c
commit 06f3fa8637
3 changed files with 34 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src-3.0/PGF.hs
View File

@@ -55,8 +55,7 @@ module PGF(
) where
import PGF.CId
import PGF.Linearize hiding (linearize)
import qualified PGF.Linearize (linearize)
import PGF.Linearize
import PGF.Generate
import PGF.Macros
import PGF.Data
@@ -177,7 +176,7 @@ readPGF f = do
g <- parseGrammar s
return $! toPGF g
linearize pgf lang = PGF.Linearize.linearize pgf (mkCId lang)
linearize pgf lang = concat . take 1 . PGF.Linearize.linearizes pgf (mkCId lang)
parse pgf lang cat s =
case Map.lookup (mkCId lang) (concretes pgf) of