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

fix showPGF for the case where a category has no fields

Browse Source
This commit is contained in:
krangelov
2021-11-18 11:41:24 +01:00
parent 5ada91f026
commit 09731b985c
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/runtime/haskell/PGF2.hsc
View File

@@ -243,7 +243,7 @@ showPGF p =
fields <- allocaBytes (1*(#size size_t)) $ \pcounts -> do fields <- allocaBytes (1*(#size size_t)) $ \pcounts -> do
pgf_get_lincat_counts_internal val pcounts pgf_get_lincat_counts_internal val pcounts
n_fields <- peekElemOff pcounts 0 n_fields <- peekElemOff pcounts 0
forM [0..n_fields-1] $ \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 fields)) $$
@@ -265,10 +265,10 @@ showPGF p =
pgf_get_lin_counts_internal val pcounts pgf_get_lin_counts_internal val pcounts
n_prods <- peekElemOff pcounts 0 n_prods <- peekElemOff pcounts 0
n_seqs <- peekElemOff pcounts 1 n_seqs <- peekElemOff pcounts 1
forM_ [0..n_prods-1] $ \i -> do forM_ (init [0..n_prods]) $ \i -> do
sig <- bracket (pgf_print_lin_sig_internal val i) free $ \c_text -> do sig <- bracket (pgf_print_lin_sig_internal val i) free $ \c_text -> do
fmap text (peekText c_text) fmap text (peekText c_text)
syms <- forM [0..n_seqs-1] $ \j -> syms <- forM (init [0..n_seqs]) $ \j ->
bracket (pgf_print_lin_seq_internal val i j) free $ \c_text -> do bracket (pgf_print_lin_seq_internal val i j) free $ \c_text -> do
fmap text (peekText c_text) fmap text (peekText c_text)
let def = text "lin" <+> (sig <+> char '=' <+> char '[' $$ let def = text "lin" <+> (sig <+> char '=' <+> char '[' $$