From 7ff38bfcbe128bb04d57f375d464ad4d400f2c41 Mon Sep 17 00:00:00 2001
From: krangelov <kr.angelov@gmail.com>
Date: Thu, 18 Nov 2021 11:43:44 +0100
Subject: [PATCH] show field names in double quotes

---
 src/runtime/haskell/PGF2.hsc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/runtime/haskell/PGF2.hsc b/src/runtime/haskell/PGF2.hsc
index 0984154b7..69b4818c9 100644
--- a/src/runtime/haskell/PGF2.hsc
+++ b/src/runtime/haskell/PGF2.hsc
@@ -246,7 +246,7 @@ showPGF p =
                       forM (init [0..n_fields]) $ \i -> do
                         pgf_get_lincat_field_internal val i >>= peekText
           let def = text "lincat" <+> (text name <+> char '=' <+> char '[' $$
-                                       nest 2 (vcat (map text fields)) $$
+                                       nest 2 (vcat (map (text.show) fields)) $$
                                        char ']')
           modifyIORef ref $ (\doc -> doc $$ def)