diff options
| author | peb <unknown> | 2005-02-17 09:12:32 +0000 |
|---|---|---|
| committer | peb <unknown> | 2005-02-17 09:12:32 +0000 |
| commit | 359f1b8ea2032fbf5b8ad7ad6c88e922fa83470b (patch) | |
| tree | 17d52866d7f97c1817832eefb741e07a0b54cffb /src/GF/CF | |
| parent | 55f889eda88d847ace5cdae00b175434006be287 (diff) | |
"Committed_by_peb"
Diffstat (limited to 'src/GF/CF')
| -rw-r--r-- | src/GF/CF/PPrCF.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/GF/CF/PPrCF.hs b/src/GF/CF/PPrCF.hs index 11a710986..5f00e4b7e 100644 --- a/src/GF/CF/PPrCF.hs +++ b/src/GF/CF/PPrCF.hs @@ -50,9 +50,11 @@ prCFFun' profs (CFFun (t, p)) = prt_ t ++ pp p where prCFCat :: CFCat -> String prCFCat (CFCat (c,l)) = prt_ c ++ "-" ++ prt_ l ---- +prCFItem :: CFItem -> String prCFItem (CFNonterm c) = prCFCat c prCFItem (CFTerm a) = prRegExp a +prRegExp :: RegExp -> String prRegExp (RegAlts tt) = case tt of [t] -> prQuotedString t _ -> prParenth (prTList " | " (map prQuotedString tt)) |