diff options
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)) |