From 25f486858fcd3bad89fda6317abe750be5d29855 Mon Sep 17 00:00:00 2001 From: aarne Date: Sun, 22 Jun 2008 09:01:32 +0000 Subject: prefix and variants restored in linearization --- src-3.0/PGF.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src-3.0/PGF.hs') diff --git a/src-3.0/PGF.hs b/src-3.0/PGF.hs index 0739815be..87f186573 100644 --- a/src-3.0/PGF.hs +++ b/src-3.0/PGF.hs @@ -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 -- cgit v1.2.3