diff options
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 |