GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-03 00:02:50 -06:00
Code Issues Packages Projects Releases Wiki 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 n_fields <- peekElemOff pcounts 0
forM [0..n_fields-1] $ \i -> do forM [0..n_fields-1] $ \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)) $$
char '}') char ']')
modifyIORef ref $ (\doc -> doc $$ def) modifyIORef ref $ (\doc -> doc $$ def)
ppLins c = unsafePerformIO $ do ppLins c = unsafePerformIO $ do
@@ -271,9 +271,9 @@ showPGF p =
syms <- forM [0..n_seqs-1] $ \j -> syms <- forM [0..n_seqs-1] $ \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 '[' $$
nest 2 (vcat syms) $$ nest 2 (vcat syms) $$
char '}') char ']')
modifyIORef ref $ (\doc -> doc $$ def) modifyIORef ref $ (\doc -> doc $$ def)
-- | The abstract language name is the name of the top-level -- | The abstract language name is the name of the top-level