diff options
| author | hallgren <hallgren@chalmers.se> | 2014-06-12 14:43:18 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2014-06-12 14:43:18 +0000 |
| commit | d6252d1c16d59ad26db0d08a531cddf39864d9db (patch) | |
| tree | 93d4c2be28e430bb64a1cb2db22299b1b4b8afb7 /src/compiler/GF/Compile/GeneratePMCFG.hs | |
| parent | 352ecb7eb89b3f427667c7c51f71812b619393af (diff) | |
PGF library: expose only PGF and PGF.Internal instead of all modules
PGF exports the public, stable API.
PGF.Internal exports additional things needed in the GF compiler & shell,
including the nonstardard version of Data.Binary.
Diffstat (limited to 'src/compiler/GF/Compile/GeneratePMCFG.hs')
| -rw-r--r-- | src/compiler/GF/Compile/GeneratePMCFG.hs | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/src/compiler/GF/Compile/GeneratePMCFG.hs b/src/compiler/GF/Compile/GeneratePMCFG.hs index 5a3f01c86..fb51f9be9 100644 --- a/src/compiler/GF/Compile/GeneratePMCFG.hs +++ b/src/compiler/GF/Compile/GeneratePMCFG.hs @@ -14,7 +14,7 @@ module GF.Compile.GeneratePMCFG ) where --import PGF.CId -import PGF.Data(CncCat(..),Symbol(..),fidVar) +import PGF.Internal as PGF(CncCat(..),Symbol(..),fidVar) import GF.Infra.Option import GF.Grammar hiding (Env, mkRecord, mkTable) @@ -194,13 +194,12 @@ unfactor t = CM (\gr c -> c (unfac gr t)) Vr y | y == x -> u _ -> composSafeOp (restore x u) t -pgfCncCat :: SourceGrammar -> Type -> Int -> PGF.Data.CncCat +pgfCncCat :: SourceGrammar -> Type -> Int -> CncCat pgfCncCat gr lincat index = let ((_,size),schema) = computeCatRange gr lincat - in PGF.Data.CncCat index - (index+size-1) - (mkArray (map (renderStyle style{mode=OneLineMode} . ppPath) - (getStrPaths schema))) + in PGF.CncCat index (index+size-1) + (mkArray (map (renderStyle style{mode=OneLineMode} . ppPath) + (getStrPaths schema))) where getStrPaths :: Schema Identity s c -> [Path] getStrPaths = collect CNil [] |