diff options
Diffstat (limited to 'src/runtime/haskell/PGF/Linearize.hs')
| -rw-r--r-- | src/runtime/haskell/PGF/Linearize.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/runtime/haskell/PGF/Linearize.hs b/src/runtime/haskell/PGF/Linearize.hs index 80d1f1acf..de3daf11d 100644 --- a/src/runtime/haskell/PGF/Linearize.hs +++ b/src/runtime/haskell/PGF/Linearize.hs @@ -1,6 +1,6 @@ {-# LANGUAGE ParallelListComp #-} module PGF.Linearize - (linearizes,realize,realizes,linTree, linTreeMark,linearizesMark) where + (linearizes,showPrintName,realize,realizes,linTree, linTreeMark,linearizesMark) where import PGF.CId import PGF.Data @@ -164,3 +164,7 @@ linTreeMark pgf lang = lin [] . expr2tree bracket p ts = [kks ("("++show p)] ++ ts ++ [kks ")"] sub p i = p ++ [i] + +-- | Show the printname of function or category +showPrintName :: PGF -> Language -> CId -> String +showPrintName pgf lang id = lookMap "?" id $ printnames $ lookMap (error "no lang") lang $ concretes pgf |