msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

show field names in double quotes

Browse Source
This commit is contained in:
krangelov
2021-11-18 11:43:44 +01:00
parent 09731b985c
commit 7ff38bfcbe
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/PGF2.hsc
View File

@@ -246,7 +246,7 @@ showPGF p =
forM (init [0..n_fields]) $ \i -> do forM (init [0..n_fields]) $ \i -> do
pgf_get_lincat_field_internal val i >>= peekText pgf_get_lincat_field_internal val i >>= peekText
let def = text "lincat" <+> (text name <+> char '=' <+> char '[' $$ let def = text "lincat" <+> (text name <+> char '=' <+> char '[' $$
nest 2 (vcat (map text fields)) $$ nest 2 (vcat (map (text.show) fields)) $$
char ']') char ']')
modifyIORef ref $ (\doc -> doc $$ def) modifyIORef ref $ (\doc -> doc $$ def)