From 96492e698aa20528733dcc88f9ca1937e06b65ee Mon Sep 17 00:00:00 2001 From: Krasimir Angelov Date: Wed, 6 May 2026 14:10:50 +0200 Subject: [PATCH] don't use map show in type2fields --- src/compiler/api/GF/Compile/GeneratePMCFG.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/compiler/api/GF/Compile/GeneratePMCFG.hs b/src/compiler/api/GF/Compile/GeneratePMCFG.hs index 4c1cd86da..eec1bf995 100644 --- a/src/compiler/api/GF/Compile/GeneratePMCFG.hs +++ b/src/compiler/api/GF/Compile/GeneratePMCFG.hs @@ -102,7 +102,7 @@ pmcfgForm g t ctxt ty = do in apply (d+1) ms' s' ctxt (App t t2) (params:args) type2fields :: SourceGrammar -> Type -> [String] -type2fields gr = map show . type2fields PP.empty +type2fields gr = type2fields PP.empty where type2fields d (Sort s) | s == cStr = [show d] type2fields d (RecType lbls) =