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

change from curly braces to square brackets

Browse Source
This commit is contained in:
krangelov
2021-11-18 10:57:12 +01:00
parent 71020baa5e
commit dc609d2fff
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -245,9 +245,9 @@ showPGF p =
n_fields <- peekElemOff pcounts 0
forM [0..n_fields-1] $ \i -> do
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)) $$
char '}')
char ']')
modifyIORef ref $ (\doc -> doc $$ def)
ppLins c = unsafePerformIO $ do
@@ -271,9 +271,9 @@ showPGF p =
syms <- forM [0..n_seqs-1] $ \j ->
bracket (pgf_print_lin_seq_internal val i j) free $ \c_text -> do
fmap text (peekText c_text)
let def = text "lin" <+> (sig <+> char '=' <+> char '{' $$
let def = text "lin" <+> (sig <+> char '=' <+> char '[' $$
nest 2 (vcat syms) $$
char '}')
char ']')
modifyIORef ref $ (\doc -> doc $$ def)
-- | The abstract language name is the name of the top-level