diff options
| author | aarne <unknown> | 2005-04-17 18:48:34 +0000 |
|---|---|---|
| committer | aarne <unknown> | 2005-04-17 18:48:34 +0000 |
| commit | 1323b7406376c72f40b1e561e079f8824f79aabf (patch) | |
| tree | 177d464f38a2bb65d6f161bc2568c87c408c9c4f /src/GF/CF/PPrCF.hs | |
| parent | df4f4bcd6fa052d476adc6bc9848d29d954a1b34 (diff) | |
defLinType and pr no s label
Diffstat (limited to 'src/GF/CF/PPrCF.hs')
| -rw-r--r-- | src/GF/CF/PPrCF.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/GF/CF/PPrCF.hs b/src/GF/CF/PPrCF.hs index cd91fa4da..fcfeeb61b 100644 --- a/src/GF/CF/PPrCF.hs +++ b/src/GF/CF/PPrCF.hs @@ -5,9 +5,9 @@ -- Stability : (stable) -- Portability : (portable) -- --- > CVS $Date: 2005/02/18 19:21:07 $ --- > CVS $Author: peb $ --- > CVS $Revision: 1.9 $ +-- > CVS $Date: 2005/04/17 19:48:34 $ +-- > CVS $Author: aarne $ +-- > CVS $Revision: 1.10 $ -- -- printing and parsing CF grammars, rules, and trees AR 26/1/2000 -- 9/6/2003 -- @@ -48,7 +48,9 @@ prCFFun' profs (CFFun (t, p)) = prt_ t ++ pp p where normal p = and [x==y && null b | ((b,x),y) <- zip p (map (:[]) [0..])] prCFCat :: CFCat -> String -prCFCat (CFCat (c,l)) = prt_ c ++ "-" ++ prt_ l ---- +prCFCat (CFCat (c,l)) = prt_ c ++ case prt_ l of + "s" -> [] + _ -> "-" ++ prt_ l ---- prCFItem :: CFItem -> String prCFItem (CFNonterm c) = prCFCat c |