diff options
| author | Krasimir Angelov <kr.angelov@gmail.com> | 2018-12-20 10:54:04 +0100 |
|---|---|---|
| committer | Krasimir Angelov <kr.angelov@gmail.com> | 2018-12-20 10:54:04 +0100 |
| commit | 260c0d07e05d273ae7d6e6a05bf638cce16d48dd (patch) | |
| tree | 45e6a7c3439ef45205cdb1e0627aed04f6e5db61 /src/runtime | |
| parent | 26dabeab9b692ee14cbee7ae41ed7a09d6072637 (diff) | |
revert to printing the unique id in ppBracketedString
Diffstat (limited to 'src/runtime')
| -rw-r--r-- | src/runtime/haskell/PGF/Macros.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/runtime/haskell/PGF/Macros.hs b/src/runtime/haskell/PGF/Macros.hs index c294a0ce1..b60c8a0d4 100644 --- a/src/runtime/haskell/PGF/Macros.hs +++ b/src/runtime/haskell/PGF/Macros.hs @@ -170,7 +170,7 @@ showBracketedString :: BracketedString -> String showBracketedString = render . ppBracketedString ppBracketedString (Leaf t) = text t -ppBracketedString (Bracket cat fid fid' index _ _ bss) = parens (ppCId cat <> colon <> int fid' <+> hsep (map ppBracketedString bss)) +ppBracketedString (Bracket cat fid fid' index _ _ bss) = parens (ppCId cat <> colon <> int fid <+> hsep (map ppBracketedString bss)) -- | The length of the bracketed string in number of tokens. lengthBracketedString :: BracketedString -> Int |