From c437f63404dc0a4fdb42cd6eff661b071d3fca1d Mon Sep 17 00:00:00 2001 From: peb Date: Tue, 4 Apr 2006 09:33:22 +0000 Subject: adding support for 2nd order functions in SimpleGFC format --- src/GF/Formalism/GCFG.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/GF/Formalism/GCFG.hs') 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 -- cgit v1.2.3