diff options
| author | krasimir <krasimir@chalmers.se> | 2010-01-05 07:05:41 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-01-05 07:05:41 +0000 |
| commit | 3ed19a482e796b0a62d234ec9ffd1981d5fee64e (patch) | |
| tree | 93e3cf1a0643480f704bd5243585a090678b04b2 /src/runtime/haskell/PGF.hs | |
| parent | 354269e17c63d6e750fb5626adac43b92479506a (diff) | |
printnames are now kept as String instead of Term in PGF
Diffstat (limited to 'src/runtime/haskell/PGF.hs')
| -rw-r--r-- | src/runtime/haskell/PGF.hs | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/src/runtime/haskell/PGF.hs b/src/runtime/haskell/PGF.hs index 2b521e8f7..14e157bb6 100644 --- a/src/runtime/haskell/PGF.hs +++ b/src/runtime/haskell/PGF.hs @@ -155,9 +155,6 @@ linearizeAll :: PGF -> Tree -> [String] -- available in the grammar. linearizeAllLang :: PGF -> Tree -> [(Language,String)] --- | Show the printname of a type -showPrintName :: PGF -> Language -> Type -> String - -- | The same as 'parseAllLang' but does not return -- the language. parseAll :: PGF -> Type -> String -> [[Tree]] @@ -260,8 +257,6 @@ linearizeAll mgr = map snd . linearizeAllLang mgr linearizeAllLang mgr t = [(lang,PGF.linearize mgr lang t) | lang <- languages mgr] -showPrintName pgf lang (DTyp _ c _) = realize $ lookPrintName pgf lang c - parseAll mgr typ = map snd . parseAllLang mgr typ parseAllLang mgr typ s = |