diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-22 09:01:32 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-22 09:01:32 +0000 |
| commit | 25f486858fcd3bad89fda6317abe750be5d29855 (patch) | |
| tree | 2651b03e90f05782e50275a4e6a7eb918a91e5a6 /src-3.0/PGF.hs | |
| parent | 80108924f99427180a2a2cfb486745311201ab71 (diff) | |
prefix and variants restored in linearization
Diffstat (limited to 'src-3.0/PGF.hs')
| -rw-r--r-- | src-3.0/PGF.hs | 5 |
1 files changed, 2 insertions, 3 deletions
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 |