diff options
| author | peb <peb@cs.chalmers.se> | 2006-04-04 09:33:22 +0000 |
|---|---|---|
| committer | peb <peb@cs.chalmers.se> | 2006-04-04 09:33:22 +0000 |
| commit | c437f63404dc0a4fdb42cd6eff661b071d3fca1d (patch) | |
| tree | a455ae560107cdf92cc942bd61d124d3fcb67130 /src/GF/Formalism/GCFG.hs | |
| parent | f1000ca8c3c07f851f1f278fc75fdf7caec9848e (diff) | |
adding support for 2nd order functions in SimpleGFC format
Diffstat (limited to 'src/GF/Formalism/GCFG.hs')
| -rw-r--r-- | src/GF/Formalism/GCFG.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Formalism/GCFG.hs b/src/GF/Formalism/GCFG.hs index 1248208c0..9cf47637a 100644 --- a/src/GF/Formalism/GCFG.hs +++ b/src/GF/Formalism/GCFG.hs @@ -42,7 +42,7 @@ instance (Print c, Print n, Print l, Print t) => Print (Rule n c l t) where instance (Print c, Print n) => Print (Abstract c n) where prt (Abs cat args name) = prt name ++ ". " ++ prt cat ++ ( if null args then "" - else " -> " ++ prtSep " " args ) + else " --> " ++ prtSep " " args ) instance (Print l, Print t) => Print (Concrete l t) where prt (Cnc lcat args term) = prt term |