GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-30 14:52:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

when we print the bracketed string it is useful to print the attached metavariables as well

Browse Source
This commit is contained in:
krasimir
2010-10-25 12:21:12 +00:00
parent 2aea03a614
commit aa6b07afdb
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/runtime/haskell/PGF/Macros.hs
View File

@@ -169,7 +169,7 @@ showBracketedString :: BracketedString -> String
showBracketedString = render . ppBracketedString showBracketedString = render . ppBracketedString
ppBracketedString (Leaf t) = text t ppBracketedString (Leaf t) = text t
ppBracketedString (Bracket cat fcat index _ bss) = parens (ppCId cat <+> hsep (map ppBracketedString bss)) ppBracketedString (Bracket cat fid index _ bss) = parens (ppCId cat <> colon <> int fid <+> hsep (map ppBracketedString bss))
-- | The length of the bracketed string in number of tokens. -- | The length of the bracketed string in number of tokens.
lengthBracketedString :: BracketedString -> Int lengthBracketedString :: BracketedString -> Int