From 359f1b8ea2032fbf5b8ad7ad6c88e922fa83470b Mon Sep 17 00:00:00 2001
From: peb <unknown>
Date: Thu, 17 Feb 2005 09:12:32 +0000
Subject: "Committed_by_peb"

---
 src/GF/CF/PPrCF.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/GF/CF')

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))
-- 
cgit v1.2.3