diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/PGF.hs | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/src/PGF.hs b/src/PGF.hs index 96fd73c86..dc777f4d5 100644 --- a/src/PGF.hs +++ b/src/PGF.hs @@ -69,7 +69,6 @@ import PGF.Raw.Parse import PGF.Raw.Print (printTree) import PGF.Parsing.FCFG import qualified PGF.Parsing.FCFG.Incremental as Incremental -import qualified GF.Compile.GeneratePMCFG as PMCFG import GF.Text.UTF8 import GF.Data.ErrM @@ -205,14 +204,7 @@ complete :: PGF -> Language -> Category -> String readPGF f = do s <- readFile f >>= return . decodeUTF8 -- pgf is in UTF8, internal in unicode g <- parseGrammar s - return $! addParsers $ toPGF g - --- Adds parsers for all concretes that don't have a parser. -addParsers :: PGF -> PGF -addParsers pgf = pgf { concretes = Map.map conv (concretes pgf) } - where - conv cnc | isJust (parser cnc) = cnc - | otherwise = cnc { parser = Just (PMCFG.convertConcrete (abstract pgf) cnc) } + return $! toPGF g linearize pgf lang = concat . take 1 . PGF.Linearize.linearizes pgf (mkCId lang) |