GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-08-20 19:26:22 -06:00
Code Issues Packages Projects Releases Wiki Activity

don't use map show in type2fields

Browse Source
This commit is contained in:
Krasimir Angelov
2026-05-06 14:10:50 +02:00
parent 82db897847
commit 96492e698a
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/compiler/api/GF/Compile/GeneratePMCFG.hs
+1 -1
View File
@@ -102,7 +102,7 @@ pmcfgForm g t ctxt ty = do
in apply (d+1) ms' s' ctxt (App t t2) (params:args) in apply (d+1) ms' s' ctxt (App t t2) (params:args)
type2fields :: SourceGrammar -> Type -> [String] type2fields :: SourceGrammar -> Type -> [String]
type2fields gr = map show . type2fields PP.empty type2fields gr = type2fields PP.empty
where where
type2fields d (Sort s) | s == cStr = [show d] type2fields d (Sort s) | s == cStr = [show d]
type2fields d (RecType lbls) = type2fields d (RecType lbls) =